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Stort Commodore marked 



Reducer dine revisor- 
omkostninger med 50 % 

Da vi introducerede finansbogjiolde- 
rict for et ar siden , blev det straks 
popular. Siden er det blevct videre 
udviklet - og i dag er det mere popu- 
lar end nogensinde. 

Comfinans version 2.0 

1200 posteringer/periode 
3(X) konti 

Resultatopgdrelse & balance 
Arsafslutning 

Transaklionsjournal med grandtotal 
Rettelser af poster 
Periodeafslutning 
Aulomatisk momspostering 
Udskrift af kontogrp. og af enkelt 
konto 

Udskrift af debitorer og kredilorer 

Kun kr. . . 2.095,- 

Vi har udviklet et nyt system. Det 
kan foruden faktureringen klare al 
debitorstyringen - og det er integreret 
(ktfrer sammen) med finansboghol- 
deriet- 



Faksys version 2.0 

600 posteringer/periode 

250 kunder . 

250 varer 

Faktura 

Kredilnota 

Posteringsjournal 

Udskrift af debitorer 

Debitorstatus 

Kontoudtog med renter 

Labels 

Prisliste 

Salgsstatistik 

Med eller uden fortrykl blanket 
Renteminimum n cae 

Kun kr £.393,- 

Systemerne leveres pa diskette med 
udforlig dansk brugervcjledning. 
Med systemerne ftflger 12 mdr.'s gra- 
tis opdatering, safremt nye versioner 
af systemet fremkommer gcnnem 
forbedringer. 

CBM 64 + VC1541 4- MPS801 

og 



INGEN VENTETID 



Floppy Express laverdin 1541 disket- 
testation til el lynhurtigt diskdrive. 
Du udskifter to IC'er pa din diskette- 
station og den arbejder nu op til 6 
gange sS hurtigt som far. 
Og det ikke kun ved programmer, 
men ved al input/output fra/til disket- 
testationen. 4 aqc 

Kunkr I.SKFU,- 



80 tegn pa din Commodore 64 

80 tegn/grafikkort til CBM 64 
med digitalt ur, DANSK tekstbe- 
handling og kalkulations- 
program. Mulighed forblandel 
grafik og tekst i farve, med 
fastfrysning af averste Hnie 
og indb ygget linieafsta nd . 
Priskr.i ij^j B Q35y* 




NYT NYT NYT NYT NYT 
GOLDEN TOOLS 



Comfinans & Faksys 

Spar 2.000 

ComFinans alene 

Spar 1.400 

Faksys alene 
Spar 1.600 



. . kr. 13.985r 
kr. 11.985r 
. . kr. 12.285T 



Adreva 64 

Et adre&seforvaltningssystem til 
CommodoTe 64, som kan sammcnlig- 
nes med systemer til langt storre 
anlarg. 

Der kan registreres op til 662 adres- 
ser per diskette. 

Direkte hentning af enkeltadresser 
igennem to forskeliige nflgler. 
Man kan bladre frem og tilbage i 
adresserne. 

Sortere udskrifter af hele adresser, 
adr. liste, labels. 995 - 



Problemer med din computer - ring! 



Vi kan bare IT at vare de bedste! 




SM KIT 64 

Programmeringshja?lp til Basic og 
Assembierprogrammering som 
Merge, Find, Renumber, Trace, 
Dump, Assembler og Disassembler 
Floppy Monitor burde va;re hjielpe- 
programmet til alle dem. der pro- 
grammers pa Commodore 64. Uden 
programmet spilder du meget tid - 
alt for meget. 995 ™ 

ISM 64 

Indexsekentiel Database til Commo- 
dore 64. Op til 40 n0gler, variabel 
tekstlaengde og 10 ISM kartoteker til 
athenteallemulige QQR 
relevante data. Kr %f?JU|"* 

MAE 64 

Hvis man vil udnytte de mange 
mulighcdcr Commodore 64 har, skal 
man naturligvis lave programmer i 
maskinkode. 

MAE byder savel bcgynderen som 
den professionelle uanede mulighe- 
der. 

MAE pakken indeholder en meget 
god editor, der har mange komman- 
doer timelles med KIT 64. 
Under assemblcringen er der mulig- 
hed for at benytte makroinstrukti- 
oner. Man kan lave en betinget 
assemblering med mulighed for at 
danne flytbar kode. QQR 
Pris 5I5KJj" 

E prom braender 

Med program til styringen af enhe- 

Kun kr. . 1 .425,- 




Eprom sletter 

Kan stette op til 4 EPROMS ad gan- 



gers 
Kun kr 



808,- 




Motherboard 

Tillader tilslutning af flere moduler 
f.eks. Simon's Basic og 80 tegnskor- 

Med2porte 276,- 

Med 5 porte 846,- 

Eprom kort 

Med dette kort kan man tilslutte de 
EPROMS man har bramdt til compu- 

Med2sokler 342,- 



n 



Velkommen Norge 

1984 blev et computermsessigt set meget spsendende Sr. Det blev 
Sret, hvor hjemmecomputeren for alvor holdt sit indtog i de danske 
hjem. Det biev ligeJedes flret. hvor hjemmecomputeren i kraft af en 
stadig mereavanceret software for alvor blevvoksen.Selv skeptiker- 
ne ma efterhSnden indromme, at den er andet og mere end blot et 
stykke dyrt legetej. 

1 1984 skete der ogs§ en udskillelse af de forskellige mserker. En- 
kelte blev store og andre gled i baggrunden. Commodore blev den 
starste, og det blev ogs£ grundlaget for udgivelsen af Danmarks for- 
ste brugerspecifikke magasin: RUN! 

RUN blev godt modtaget og det vil jeg benytte lejligheden til at sige 
laeseme tak for. 

Det var imidlertid ikke kun danskerne, der fik glaede af RUN. En 
proveudlasgning i Norge, viste s£ stor interesse, at RUN nu kommer i 
en Dansk/Norsk udgave. Det bliver til gavn for alle leeserne, da de 
norske sider ikke bliver »stj3let« fra de danske, men derimod ger RUN 
endnu mere omfangsrigt og afvekslende. Derudover giver det os mu- 
lighed for at udkomme 8 gange i 1985. 

Vi benytter her lejligheden til at byde vore norske kolleger velkommen 
og hSber pa et godt samarbejde til glade for alle vore leesere. 
Et forsinket godt nyter. 

J0rgenj&rgensen 
Redakter 



Qkonomisystemer til 
Commodore 64 



Af Robin Sagar 



Commodore 64 har igennem de 
mange anvendelsesmuligheder be- 
vist sin styrke som hjemmecompu- 
ter. Appllkationeme straekker sig 
fra spil og musik til uddannelses- 
programmer og mere professional 
udnyttelse. Hvad angarden proles- 
sionelle anvendelse er der forst og 
Iremmest tate om tekstbehandllng, 
arklv/database- og regnearkssyste- 
mer. Men herudover kan 64'eren og- 
sa anvendes som et redskab til bog- 
loring i f.eks. mindre virksomheder, 
klubber og foreninger. 

Til et computer-baseret bogforingssy- 
stem pa. CBM 64 er kravene til hard- 
ware en diskettestation, en primer, en 
monitor eller TV og sa selvfofgelig 
64'eren selv. Hvad angar software- 
pakker, er der store forskelte I udbu- 
det, lige fra simple finans-bogferings- 
systemer til avancerede mtegrerede 
0konomisystemer med debitor- og 
kreditor-kontrol. lagerstyring og mulig- 
heder for rapporter over »actuals« i for- 
hold til budget. 

Visse bestemte torhold bar overve- 
jes, nSr man vurderer et okonomisy- 
stem. Ikke mindst hvad angar datasik- 
kerhed. Dette gaslder pa to omrader 
For det farste beskyttelse af data mod 
uautonseret brug. Detle problem kan 
Iflses at software-systemet, ved at det 
kraaver et kodeord af brugeren, for at 
det kan anvendes. En sadan facllitet 
findes i bade Comfinans og i Commo- 
dores system. Det andel sikkerheds- 
aspekt dreje r sig om prob lemet med at 
data kan blive siettet ved et uheld. Det- 
te loses ved at tage backup-kopier af 
datadisketten. 

Alle de systemer, jeg har testet for 
RUN, har et kopi- eller backup-pro- 
gram somenintegreretdelaf selve sy- 
stemet. Det kan anbefales at tage en 
kopi at alle data hver gang, man har 
foretaget aandringer. Backup-disket- 
ten bar heretter opbevares et sikkert 



sted. Heruobver mener jeg, at der bar 
laves en eksira sikkerhedskopi hver 
gang der skiftes kontoperiode. Dette 
betyder, at hvis uheldet skulle vaare 
ude, vil det maksimale antal posterin- 
ger, der ska! genindtastes svare til en 
maned. 

Eftersom de testede systemer er re- 
lativt dyre, bar leverandoren slkre, at 
keberen kan fa en ny kopi at systemet 
(system-disketten), hvis denne skulle 
blive adelagt. Probtemet med piratko- 
pier kan tilsvarende imodegas ved an- 
vendelse af »dongle« samt brugerregi- 
strering. To af de atprovede systemer 
benytter denne form for beskyttelse. 

I alle systemerne er finansbogfc- 
ringsmodulet det centrale. Som mini- 
mum ma del kreeves, at dette modul 
kan brugestil at oprette en kontoplan, 
udfere debit- og kredit-posteringer, 
samt kunne udskrive en posterings- 
oversigt og saidobalance 

I alle systemer er oprettelse af 
stamdata det (crste, der skal gores. 
Dette vil normalt inkludere firmaets 
navn, adresse, tefefon-nr. og den aktu- 
elle moms-%. I nogle systemer erder 
ogsa mulighed tor at indtaste den 
gamle moms-sats og/eller kontonum- 
re til moms-posteringer. 

Sa snarl de torskeliige stamdata er 
Indtastet, kan kontoplanen oprettes. 
Det skal tilrades, at man tanker sig 
godt om inden kontopianen konst rue- 
res, idet denne vil vaare be,s!emmende 
for saldobalancens udseende. Det ma 
noje overvejesat lavegrupperafkonti. 
ligesom der ma gores ptads til eventu- 
elle konti, der senerekan blive nadven- 
dige. 

ALT-I-ET 

ALT-I-ET er et integreret system med 
telgende rutiner: Lagerstyring. debi- 
torstynng, bogf Bring, kartoteker og ak- 
tivitetsstyring. Systemet leveres pa to 
disketter; En rad med programmerne 
og en bla, som er en formatteret data- 
diskette. Systemets kapacitet er 1300 
posteringer, 999 varenumre i lagerde- 
len og et arklv pa op til 720 kartoteks- 



kort.HerudoverkanALT-l-EThandtere 
en planiasgningskalender pa op til 31 
dage pr. diskette. 

Egentlig er der ikke sa meget, der 
adskiller ALT-l-ET fra de avrige syste- 
mer. Dog vi! jeg lige na3vne folgende: 
ALT-I-ET benytter et password-sy- 
stem, det har automatisk Dilagsnum- 
mererlng.ogdet harengodbrugervej- 
ledning. Kartoteksmodulet er anven- 
dehgt og fleksibeit Derimod har jeg 
fundet det vanskeligt at anvende plan- 
taagnmgskatenderen. idet den ikke er 
integreret med regnskabs- og karto- 
teksmodulerne. 

BUSYPACK 

Denne software-pakke er det eneste 
af de her omtalte systemer. der fflrst 
og fremmest er teenkt til prolessionel 
brug. Oprindellg er systemet udviklet 
til at kcre pa de sierre PET-computere. 

Busypack er el okonomisystem. 
som bestar af fire modular: Finansbog- 
faring. debitor/kreditor, fakturering og 
lagerstyring- Hvert af modulerne kan 
kabes separat, men alt efter bruge- 
rens behov. kan Here eller alle rnoduter 
erhverves samlet, hvorved der bliver 
laleom et fuldt integreret system. Den 
version som RUN har haft til gennem- 
syn , karer pa en 64 'er med en CBM 
8050 dobbelt diskettestation. Denne 
konfiguration ma ogsa anses tor at vae- 
re den mest anvendelige. Man vil dog 
ogsa kunne Ware sig med en eller to 
1541 diskettestationer, ligesom der 
findes en version til PLUS4-maskinen. 

Busypack er et af de systemer. der 
er slkret ved hjaelp af en "dongle*. 

Nar man bruger den version der 
kraaver en 8050 diskettestation, kan 
hele systemet udnyttes integreret, 
uden at der skal skiftes diskette r un- 
dervejs . Denne fordei eksiste rer natur- 
ligvis ikke, hvis man anvender en 1541 
diskettestation, idet programmer og 
data bar ligge pa" hver sin diskette . Her 
ma man derfor skilte diskette, hver 
gang systemet giver besked. Det er 
dog muligt at have hele finansmoduiet 
pa en diskette sammen med data. I 



dette tilfcBlde vif der vsere plads lil 150 
kontiog 750 post eringer for hver perio- 
ds 

Software-leverandflren DSB tilby- 
der at konfigurere Busypack individu- 
e!t for kesberen far levering. 

Busypack indehoider forskellige fa- 
ciliteter. som ikke findes i de tleste an- 
dre testede systemer. Man kan f.eks. 
operere med to forskellige momssat- 
ser. med mulighed for at angive en da- 
io for skift fra den ene til den anden 
sats. Dette betyder. at fakturering og 
registrering af leverander-fakturaer vil 
blive foretaget med den korrekte 
morns- % . Herudover er Busypack del 
eneste af systemerne, som har mulig- 
hed for at medtage regnskabstal, der 
senere i rapportform kan sammenlig- 
nes med budgettal, 

Yderligere er der i Busypack mulig- 
hed for at arbejde med forskellige valu- 
takurser. t den konfiguration, som 
. RUN har testel, kan man have op til 15 
valutaer. 

Fakturaer og breve til kunder kan 
desuden udskrives pa forskellige 
sprog. Dette har naiurligvis farst og 
fremmesl interesse forde firmaer. der 
ogsa har handel med udlandet. 

Comflnans 

Dette er el 1 1 lie finansbogholderisy- 
stem i to dele. Den ferste del er at fi- 
nansbogformgssystem. og den anden 
del er et faktureringssystem. Denne 
anden del kommer dog Ikke pa marke- 
det far i begyndelsen af 1985. og er 
derfor ikke medtaget i denne oversigt. 

Comfinans er det btlligste af de te- 
stede systemer. Det bestar af en di- 
skett e med programmer og en A4-rna- 
nual pa 33 sider + 13 sider med ek- 
sempler Herudover er der en diskette 
med en kopi af systemet. 

Finansbogholderiet kan rumme en 
kontoplan med op til 300 konti og 1200 
posteringer. 

Na> systemet startes, bliver bruge- 
ren prsesenteret for oplysninger om, 
hvornar de seneste inddateringer er 
foretaget , og der er her mulighed for at 



aandre disse datoer. Herefter vises 
hovedmenuen med syv punkter. Hvis 
systemet anvendes for farste gang, 
skal brugerens stamdata indtastes, og 
kontoplan en oprettes. Kontonumrene 
skal ligge i intervallet mellem 1O00 og 
9999, hvof alle konti der ender pa OOer 
forbeholdl til gruppesammentaallln- 
ger, h vllket betyder , at der ikke kan ind- 
lasgges posteringer i disse. SS snart 
kontoplanen er oprettet, kan inddate- 
ring af poster begynde. Comfinans be- 
nytter et princip med »single item en- 
tries", dvs. hver debit-post skal have 
en modsvarende kredit-post. Det er 
saledes Ikke muligt. at lade en kredit- 
post modsvares af tre debilposter. 

Hver gang et kontonr. indtastes, ud- 
ferer systemet en sagning tor at finde 
ud af. om der er tale om en ny konto el- 



ler en allerede eksisterende. Desuden 
bliver det checket. at kontonummeret 
ikke ender pa 00. Hvis det indtastede 
kontonummer allerede er oprettet, vil 
navnel blive vist pa sksermen, og cur- 
soren vil blinke ved feltet D/K. Her skal 
brugeren sa angive, om den nye Indda- 
tersng er en debet- eller kredit-post. 
Dernaast kan postensdatoog bilagsnr 
indtastes. Der sluttes med at indtaste 
selve posten. 

COMMODORE 

I modssetning til hvad man skulle tro, 
er Commodores system ikke en over- 
seetteise af et engelsk eller ameri- 
kansk system. Det er derimod udviklet 
speciel! for det danske marked aS 
Djurs Data fra Grenaa. Systemet fin- 
des i tre forskellige versioner til 64'- 




eren, Alle indeholder en sikkerheds- 
»dongle« for at undga piratkopiering. 

To af versioneme er beregnet pa en 
64'er med henholdsvis en 1541 og en 
8050 diskettestat ion. Den iredje versi- 
on karer pa den transportable SX-64. 

Systemet bestar af en rsekke indivi- 
duelle programmer: Finans, debitor, 
kreditor. lager og fakturering. Visse af 
programmerne er dog integreret. Oet 
gselder faklurering/debitor og fakture- 
ringflager i alle tre versioner, og i ver- 
sionen der benytter CBM 8050 er *ak- 
turering, debitor og lager integreret 

Commodore tilbyder desuden - 
mod betaling - at konvertere data, 
som er dannet i et at de individuelle 
programmer til et af de integrerede sy- 
stemer. 



OYSTED 

Dysled er et mindre administratis sy- 
stem, som anbefales af en af Koben- 
havns forende computerforretninger. 

Systempakken man keber, omfat- 
ter to disketter og en godt skrevel in- 
struktionsbog. De to disketter er hen- 
holdsvis progranv/systemdiskette og 
datadiskette. Programdisketten inde- 
holder foruden selve systemet et kopi- 
program, der benyttes nar datadisket- 
ten skal sikkerhedskopieres. 

Nar systemet er loaded, fjerner 
man programdisketten. som ferst skal 
bruges igen, nar en backup er nadven- 
dig. Det vil altsa sige, at alleoperatio- 
ner som vedrarer posteringer torela- 
ges direkte pa datadisketten. som her- 
efter kommer til at indeholde et antal 
relative og sekventielle filer. Det anbe- 
fales at lave en kopi af denne diskette, 
fer systemet tages i brug. Dernasst en 
kopi efter kontoplanen er oprettet, og 
yderllgere en kopi nar debitorsiden er 
dannet. Herudover bcr man som tidli- 
gere nsevnt tage en kopi efter hver po- 
steringssession samt en kopi ved hver 
periodeafslutning. 

Systemets forskellige appiikationer 
er: Finansbogfering. lagerstyring, kre- 
ditnotering og debitorbogholderi. Des- 



uden er der en meget brugbar funktion 
til udskrivning af adresselabels. 

Nar standardsystemet er dannet pa 
disketten, kan det indeholde 120 fi- 
nanskonti, 20gruppekonti, 200debito- 
rerog 400 varenurnre. lalt kan syste- 
met Ware op til 14100 posteringer pr. 
diskette. 

Programpakken er delt i tre modu- 
lar; Finans/debitor, fakturering/debitor 
/lager og perioderegnskab. Med hen- 
syn til finansmodulet kan der her kun 
tilfejes lidt i fomold til, hvad der tidlige- 
re er nsevnt i denne artikel. Hvad angar 
proceduren vedr. bilagspostering skal 
nogle funktioner dog omtales. For det 
farste holder systemet selv styr pa de 
anvendte bilagsnumre, hvilket ogsa 
betyder at tildeling af disse numre sker 
automatisk. For det andet viser syste- 
met pa skeermen navnet pS en given 
konto nar dens nummer indtastes. Ef- 
ter indtastning af debit- eller kreditkon- 
tonummer, kan bel0D, posteringstekst 
og momsinformation indtastes. Heref- 
ter beder systemet brugeren om at 
godkende posteringen. Hvis den er 
korrekt, vil en posteringsjoumal blive 
udskrevet pa printeren. 

I faktureringsmodulet er der mulig- 
hed for to fakturerings- eller kreditno- 
taprlser, og 22 linier til tekst og vare- 
specifikationer. Desuden er der multg- 
hed for at angive rabat-satser for hver 
al linierne med vareoplysninger. Nar 
indtastningen af de 22 vare-Aekstlinier 
er afsluttet, eller nar vare nummer 0 
Indtastes. bliver fakturaen udskrevet 
pa prmteren, og systemets interne re- 
gistre opdateres. 

Til slut en bernaerkning om doku- 
mentationen lil Dysted. Den bestar af 



en A4-manual, som indeholder en bru- 
gervejledning. en gennemgang af de 
fleste at de forskellige posteringsfor- 
mer og endelig eksempier pa de for- 
skellige typer af udskrifter, som syste- 
met kan generere. Tllsammen er der 
afgjort tale om den bedste dokumenta- 
tion, nar man sammenligner med de 
ovrige testede systemer. 

Konktusion 

Nar denne artikel skal sammenfattes, 
ma det forst understreges, dette at 
skulle overveje anskaffelsen af et 
regnskabssystem kan vasre meget 
vanskeligt. tdet der bcr indgfl sa man- 
ge forskellige forhold. Dette gaalder 
f.eks. kontoplanens storrelse, antailet 
af manedlige posteringer og vurdering 
af enkelte moduler i de integrerede sy- 
stemer. Det harsaJedeshellerikkeher 
vseret muligt at omta le alle de forskelli- 
ge systemers fordele og ulernper. 

Del bedste rad der kan gives til den , 
der overvejer anskaffelse af et sadant 
system, vil derfor vasre at sage vejled- 
ning hos en software-leverandar, eller 
i en computertorretning. Man bar dog 
sikre sig, at den man taler med , virkellg 
har forstand pa »seri0S« software, og 
ikke kun kender til de nyeste compu- 
terspil. 

Min personlige anbetaling vil af- 
haange af, til hvilket brug systemet er 
taenkt. Jeg vil dog mene, at Dysted nok 
vil vaare vasrd at overveje kraftigt , hvis 
man har en title enmands-virksornhed. 
Hvis behovet derimod er storre, og der 
kraeves en mere professionel lasnmg, 
vil jeg anbetele DSC's Busypack sam- 
men med en 8050dobbe!t dtskettesta- 
tion. 



0konomisystemertMCommodore64. V.Udsalg 

Alt-I-Et Ishaj Micro Data Service 7.230,00 

Busypack Dansk Software Center 9.695.00 

Comfinans MCH-Data ApS 2.095.00 

Dysted Dysted Data 6.1 1O.00 

Finans Commodore 3.000,00 
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Hurra for den 
store forskel 



Er du den Ivkkelige ejer af 
en Commodore 64 t'llcr 
Man i.i mi' har Sanyo alle 
tidors (ilbud til dig: En hell 
nvudviklef 14" Jarve data 
miniitor, den eneste pa 
markedet, som kan tilslut- 
tes dirckte til dirt computer. 
Mod et siiibilt biHede og 
hell skarp tekstgengivelse, 
sa du kan arhejde i timevis 
udon at blive lra?l \ ojnene. 
Med klare farver og semi- 
protessionel grafik tremstil- 
ling. 

Ring eller skriv, sa sender vi 
brochure. 





Ickniske data: 
Horizontal oplosning: 340 
punkter. 64 x 2~i karakterer. 
H orison la I frekvens 15.730 
H*. PAL-composite-video 

indgang. Orm kilter til gran 

u»k<tdisplay, audioindgang 
og indbvgget hujltaler. 
Model .1105 C har separat 
throminante, luminance 
og aud ioindgan g via 
phonoNtik. Model 3185 A 
har PAL-video oj? audioind- 
gang via phonostik og RGB 
analog indgang via 21-benei 
SC'ARTMik. Tvpisk bulikspris 

3.999,- inci moms. 




12" data monitor med IS MHz btftedop- 
Imning og antireflexbenandlet hilled- 
hkxrm, dergiverdet "ngtige" data- 
brllede. DM-2J 12 gran grafik. DM-2212 
gulgtaftk. Tytiiikbutiksprii 1.499,- incl 



12" professional data monitor med 

20MHz billedoplosning der giver et per- 
fekt. skarpt billede ai bide tekst og gra iik. 
DM-9 112 gmn grafik. DM-82 12 gul grafik. 
Tvpisk butikspris 2.499^ incl. morns. 



OH 201 data kassetlcrecorderer tpecielt 
udviklet tit databrvg. BIa erdenhrsynet 
med faseskrftknap og automalisk pro- 
gramsoger. Fast udgangsniveau 1 og} 
volt Tvpisk buiikspris799r incl. moms. 



Sanyo Denmark KJS, Literbuen 11, 2740 Skovlunde. 
Tlf. ©2)84 2999 



COMAL 80 



Al Steen Schmeltzer 

Der vil i dette nummer af bladet vser e 2 
programmer om restsKat. Et i basic og 
et i COMAL Jeg vil ikke denne gang 
gennemga selve programmet, men 
beskeeftige mig med et par al de ting, 
der er brugt i programmet . Til nye las- 
sere skal jeg henlede opmserksomhe- 
den pel, at jeg bruger version 2.0. som 
er tndstiksmodulet 

Fflfst lidt om indtastningen al selve 
programmet. Som det ses a! program* 
listningen, er nogle af ordene skrevet 
med siort og andre Ikke. Nogle af lini- 
erne er trukkel md, og andre er ikke. 
Det skal du slet ikke teenke pa. Du ind- 
laster blot hele programmet med sma 
bogstaver. Indrykninger af linierne og 
de slore bogstaver btiver udlart ferste 
gang, du lister programmet. Det er 
N0GLEORDENE, der bliver udskrevet 
med stort. Indryknmgen sker som et 
led i den struktuerede programmering. 
Det eneste, du skal vaereopmasrksom 
pa, er mellemrummene. der adskiller 
f.eks. "PRINT AF" Hvis du glemmer 
det, vil du fa en fejludskrift. Nu skulle 
du vaere War til al starte. 

Tast USE DANSK + RETURN. Tast 
AUTO + RETURN. Nu vil dufadanske 
tejludskrifter og automatisk tilsknv- 
ning at linienummer mens du indta- 
ster.~De Itmer, der kun bestar al et 
nummer, er kun medtagel for at gere 
overskuelighieden sterre. 

PROC, EDIT & LIST 

I det faigende gar jeg ud fra, at du alle* 
rede har indtastet programmet. 

Som du vil se. er programmet opdelt 
I subroutiner. Disse er i COMAL ai- 
grasnset af et PROC ' ' navn pa routi ne" 
og ENDPROC "navn pa routine". Dis- 
se routiner er helt uafheengige af linie- 
nummer. De kan kaides pa flere ma- 
der. Prov at teste SCAN. Programmet 
vil nu blive undersagttpr struktuerings- 
tejl Nar det er udfort, taster du f.eks. 
MENU. Routines MENU vil nu blive ud- 
ten. Kan du se fidusen? 

Hvis du nu vil rette i programmet , ta- 
ster du EDIT. Nu vil hele programmet 
blive listet en linie af gangen og alte li- 
nier vil vsere irukket helt ud til venstre. 
Du kan nu letog smertefril rette det der 
er gait. Men det er jo lidt tosset at skul- 
le hele programmet igennem. hvis fejl- 
en er sidst i programme!. Del kan der 
seMotgelig gares noget ved. Routiner- 
ne kunne jo kaides direkte. Prav at ta- 



ste EDIT MENU. Nu vil alle linier i routi- 
nen MENU blive listet en af gangen 
Du kan ogsa vaeige at rette I et bestemt 
linieomrade. Dette gores ved at taste 
f.eks. EDIT 0200-0300. Nu vil linierne 
0200tll0300blivelistetiEDITmodeen 
af gangen. Du skal huske at udfare et 
vellykket SCAN farst. Ellers kender sy- 
stemet ikke dine routiner. Denne ma- 
de at bruge EDIT pa, kan ogsa bruges 
ved LIST Prev LIST MENU. Kan du se 
forskellen. Nu bliver alle linierne listel 
fortlooende. Det samme sker ved LIST 
0200-0300. Ved brugaf LIST vil du kun- 
ne se den strukturerede programme- 
ring. Linierne er indrykket. 

SELECT OUTPUT 

Normalt vil output blive send! enten til 
sksermen eller diskettedrive nr. 8, Men 
du kan faktisk selv bestemme, hvem 
du vil »snakke« med. Kommandoen er: 
SELECT "x", hvor x kan vasre: 

ds: = skeermen 

lp: = printer (linieprinter) 

kb: = tastatur (keyboard) 

sp: = serial port 

cs: = kassettebandoptager 

0: = diskdrive nr. 8 

2: = diskdrive nr. 9. 

Prav at taste SELECT "LP:" + RE- 
TURN. Tast deretter LIST MENU + 
RETURN. Nu vil routinen MENU blive 
udskrevet til pnnteren. For at komme 
tilbage til skeermen. er du nodi til at ta- 
ste SELECT "DS:" + RETURN. 

Som du vil kunne se i programmet, 
er det ikke nodvendigt i en printerrouti- 
ne, at skrive PRINT 4, "osv...-~". Du 
kan udprinte alle print sastninger, und- 
tagen PRINT AT, direkte til printeren 
ved hjaelp al SELECT ' ' LP:' \ Det er dog 
rnuligt at bestemme, hvor teksten og 
andet skal sta pa papirei. ved hjaelp af 
CHR$ koderne. Det^e vil jeg komme 
ind pa andetsteds. Det er nemlig et ka- 
pitel helt forsig selv. 

PRINT & PRINT AT 

En normal printsaetning kunne se sa- 
dan ud: 

PRINT "COMAL 30" 

Det er jo det samme som i BASIC. 
Men hvis du ssetter et ' ;' bagved, vil du 
fa et mellemrum mellem 2 tekstudtryk 
PRINT "COMAL SO"; "1985" Hvisdu 
saatteret 7 bagved, vil der ikke ske no- 
get. Men hvis du nu bruger systemva- 
riablenZONE.erdu island til at define- 
re forskellige zoner pa skasrmen. 



Prov at indtaste falgende: 
ZONE 10 + RETURN 
PRINT "COMAL", "60", "1985". 

Du vil nu fa printet teksten med 10 
mellemrum imellem dec terste bog- 
stav i hver tekst. Som du ser, har ' ,' nu 
taet en betydning Ved opstari er ZO- 
NE = O.Efteren PRINT ssetningvilder 
normatt blive udfert et linieskift. Men 
hvis der bliver atsluttet med enien et ' .' 
eller et ';' vil dette linieskift blive ude- 
ladt. 

Nu til PRINT AT. Ved hjaelp af denne 
kommando er det rnuligt at placere sin 
tekst, hvor man vil pa skaarmen. Kom- 
mandoen kunne se sadan ud: PRINT 
AT 20, 1 0: 1 'COM AL 80" . Nu vil teksten 
blive printet i linie 20, kolonne 10. Fer- 
stetal = linie. andet tal = kolonne. Li- 
nietallet skal ligge mellem 0-25. Kolon- 
netaiiet skal ligge mellem 0-40. 



CHRS koderne 

CHR$ koderne i COMAL 80 er de sam- 
me som i basic. Hvis vi nu vil skifte 
skrivefarve til GUL, er der 2 mader det 
kan gores pa. 

1, PRINT CHR$(158); 
PRINT "COMAL 80" 

2. PRI NT " " ' 1 58' 'COMAL 80" 1 

Hov, hvad var nu det? To " elte r hin - 
anden, kan det ga. Ja det kan detf 
CHRS koderne sasttes tnd i print saat- 
ningen ved hjaalp af et ekstra sset ". 
Det kan se lidt indviklet ud; men pravat 
se routinen UDSKRIVNINGPRINTER i 
restskatteprogrammet. Det skal ma- 
ske llge slges, at CHR$(16) er tabula- 
torsset til pnnleren. For yderligere in- 
formation henvises til brugermanuel- 
len til printeren. 

Afslutning 

Hvis du er faldet over kommandoen 
PAGE, og ikke ved hvad den betyder, 
skal jeg fortaalle dig det. Den udforer 
en CLR/HOME Altsa sletter alt pa 
stermen. 

Selve programmet virker udmasr- 
ket. Jeg har selv benyttet del de sidste 
2 ar, og min overskydende skat har 
passet pa +/- 1 kr Men vi giver na- 
turligvis ingen garanti. Programmet er 
jo afhaengig at det du indtaster 

Har du spergsmal til det vl nu har 
gennemgaet. er du velkommen til at 
skrive til os. Adressen finder du andet- 
steds I bladet Husk lige at skrive at det 
drejer sig om COMAL 80. 



RESTSKAT - COMAL 80: 



0010 TRAP ESC- // run/stop ude of tunkt I 

on 

0020 // r«stskat (or CBfl 64 L C0DAL 80 

6040 /s Stoen SohattlztT 

0050 

6060 

0070 PROC in. I ,al iceri n9 

0880 PRINT CHRiC1583 skr i ye f arue 3U 

0099 Din zt[2) OF I 
BI0B DIM <*t OF 2 

ene dim ut of 20 

0120 Dirt tastt OF 1 
0130 Din aai OF 2© 

0148 qt: = '84 : ziCl):=""; z*C2J:=""; u 
*: = ; aat: 1 

0150 rtt*Bl s2:=8; s3:=0; $4:=B; »5:=0 
; s6: -0; s?: -6; sp; =0 

&160 cl:=B; c2:=0; c3:=0; c4:=0; c 5: =0 
: c6:=&; c7:=0; c8:=0; c3: =0; c0: =0 
0170 b0: =0; bl:=0; b2:=8; b3: =0; bs:=B 
0180 pk:?0; ps;=0; sur=0; s l:=0; 92:=0 
0130 qt:= 84"; sp: =0; sl:=0; n : =1 
0200 ENDPROC mil ial .'serins 
0210 

8220 in 1 1 lal iser 1 ng 
0239 

0240 REPEAT 
8250 starl 
8269 UNTIL at="n" 
0270 

0290 PROC pause 

0290 FOR I sb] TO I DO 

0300 CNDFOR t 

0318 ENOPROC pause 

0328 

0330 PROC start 
0348 velkommen 
0350 aar '[commune 
0368 PAGE 
0378 input '*«r 
0380 kBbenhaun 
0390 klrk« 
0400 indlfomst 
0410 skat 
0420 r t gt 19 
0-130 fakto 
0448 beregnlna 

0150 udskr inning 

0468 udskrivningpr inter 

0478 afsi utn ing 
0488 ENDPROC start 
0490 

8500 PROC 1 ast 'en 'tast 

8510 PRINT AT 25.9: ""lQ-'Hlt any key t 

0 cont inue . 146" ' 19"" 

0520 WHILE KEYt=CHRtC0 } DO NULL 

0530 ENDPROC last 'en Mast 

0540 

0550 PROC aar'kommune 
0568 PAGE 
0578 POKE 53288.0 
0580 POKE 53281 ,8 

8598 PRINT AT 5.5: ResUkat bere 9 n mg 

1979 -1984 , 1 
8600 PRINT AT 21,10: " 

?J^, n PRINT AT ,2 . 10: "HMod tr d it navn 

0628 INPUT AT 20.8,20: aa* 
0630 1 : =2B00; pause 
0648 ENOPROC aar'kemmune 

065B 

8668 PROC menu 
0678 PAGE 



1 58"Beregn 1 na for 



8680 PRINT AT 1.1: 

' 154 "; aat; 158 
0690 PRINT AT 3.1: Skatteaaret - 

0700 PRINT AT 3.28: ' 154 ' 19" .<,*; | 5S 

B?10 PRINT AT 5.1: KBbenrtavm ' 8 kommun 

???2 .. IF zllM :"'J T HEN PRINT ftT 5.26: 
154 JA 158 " 

h rH EN PRINT AT 5,26: 

154 NEj 158 

0748 PRINT AT 7.1: ' fled 1 cm al folkeklf 

8? l 5 54-JA F i5e C?3: ' J ' ™ EN PR1NT AT 7 - 28: 
'NEJ 158 23 = > *' ^ PRINT « J 7 > 2 * 

0770 print AT 3.]; Amt ckattt procftni 

0780 
0798 
enl " 
0800 



0818 

t " 

0820 
0630 

0840 
komct ' 
0850 

0860 
08?0 



PRINT AT 9.28: T54 " ~;«5: ""158' " 
PRINT AT 11,1! -Kommuoe skat proc 

PRINT AT II. 28: I54~" ; s6: " " 158" 

PRINT AT 13.1: Kirke skat orocep 

IF n=0 THEN s7: =0 

PRINT AT 13.28: " " 154" " ; s7; - « l5 8' 

PRINT AT tS.l; "SkatUpi , 9 t 1 9 ind 

PRINT AT 15.28: " 1 54 '<> isp ; » " 158 " 

PRINT AT 1?. i: Indbet al t skat - 
PRINT AT 17.28: " 154 V ; bs ; " " 158 



0890 ENOPROC menu 
0898 

0900 PROC read' data 

till £ THEN ReST0 «E dataar84 

0920 IF s t = 83". THEN RESTORE dotnar83 
It qi= 82 THEN RESTORE d«1aar82 
8949 IF H i= 81 THEN RESTORE dataar8l 
aanS lF THEN RESTORE dataarBB 

Sq?2 IL? = ?S THEN RESTORE da1aar79 
0970 READ *l.s2,s3.*4.s5.s5.s7.9l.92.« 
I #P* .pk 

0988 ENDPROC read'data 
0390 

1000 PROC .nput 'aar 
1010 menu 

1020 PRINT AT 22.3: "30 "Breresn i n9 Id 

r 13 .qt. j/n~ 

1030 INPUT AT 22.32.1: at 

1040 IF at? ft- THEN 

1056 at: = 

1060 hwilket 'taa 

1070 END IF 
1090 read'data 

1030 IF atO \T THEN input 'oar 
1 10B ENDPROC input ( aar 
1 t 10 

1120 PROC Tiuilk«t 'saa 
3 1 30 menu 

]140 PRINT AT 22.3: "H^Mket aar saa ? 

s3 84 

1 150 INPUT AT 22.32.2: 

1160 IF VALlqtX?9 THEN huitket 'eaa 
I 170 IF ^AL(qt3>84- THEN huiLket 'saa 
1180 ENOPROC hvilket 'taa 
1 190 

1280 PROC kSbenhayn 

1210 menu 

1229 PRINT AT 5.27: ' 

1230 INPUT AT 5.27.1: zt(i J 
1240 IF zttl ) = "n" THEN 
1250 read'data 
1260 s6:r0 
1270 arntskat 
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3280 RETURN 
1298 END IF 

1300 IF *»Ch = "j' THEN 

1310 read 'data 

1328 RETURN 

1330 END IF 

1340 kBbenhovn 

1358 ENDPROC lc0henhaun 

1360 

1370 PROC kirke 
1380 menu 

1390 PRINT AT 7.27: » 

H00 INPUT AT 7.27.1: zit2] 

1410 IF 7i(2)='n THEN 

1420 n:-0 

1430 s7:=0 

14455 RETURN 

1450 END IF 

1460 n:=l 

1470 Taad'dala 

1480 IF 7iC?)<> j' THEN kirke 

1490 ENDPROC kirkt 

1500 

1510 PROC in.Jkomst 
1520 menu 

1530 PRINT AT 15.27: * 
1540 INPUT AT 15,27,7: sp 
1550 ENDPROC tndkomst 
1500 

1570 PROC skat 
1580 menu 

PRINT AT 17,27: 
INPUT AT 



17.27.7: b« 



s6 



1590 
1600 

1618 ENDPROC skat 
1620 

1630 PROC amt skat 
1640 menu 

1650 PRINT AT 9.27: '■' 
1660 INPUT AT 9.27.3= $5 
1670 korrmumeskat 
1680 ENDPROC ami skat 
1690 

1700 PROC kommuneskat 
1710 menu 

1720 PRINT AT 1 I .27: 
1730 INPUT AT 11 .27,3: 
1740 ENDPROC kommuneskat 
1750 

1760 PROC k ;rk*skat 
1770 menu 

1780 PRINT AT 13,27: 
1790 INPUT AT 13.27,2: s7 
1900 ENDPROC kirkeskal 
1610 

1820 PROC r i9t 19 
1830 1.1 :a| 

18<10 menu 

PRINT CHR*(L53i; 
FOR I : =1 TO 18 STEP 2 

PRINT AT I .37: I I . 
U:=ll*l 
ENQFOR I 

INPUT AT 22.5.H 

At J^n 7 * : 
1910 PRINT "CHRit 159): 

IF a*="J" THEN RETURN 
IF a*=-n" THEN 

INPUT AT 22.1.2: 1 Hullken I mi 

1 kke r igl i9 ? X 
EMOIF 

IF x=l THEN aar ■kommune 

IF x = 2 THEN input ' aar 

IF x-3 THEN k0benhaun 

IF x = 4 THEN k i rke 

IF x=5 THEN ami skat 

IF x=6 THEN kommuneskat 

IF x=7 THEN kirkeskat 

IF x-8 THEN indkomst 

IF x=9 THEN skat 



1850 
I860 
1870 
1980 
1890 
1900 



00 



Et det t e r 19 1 



I32e 
1930 

1940 
e er 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 



2050 t i?t 19 
2068 ENOPROC r i s 1 19 
2070 

2080 PROC h<*re9n l"9 
2090 sp: -1NTCsp/'1B0)x100 
b8: =«p 

IF b0>3l THEN 

bl: -9I; t>0: =b8-9l 
ELSE 

bl:=b0: b0: =0 
END IF 

IF b0>g2 THEN 

b2;-9Z; b0: 3b8-92 
ELSE 

U2:=b0; b0: =0 
END IF 
D3: =b0 

CIS =JNT( c I xb 1/1 00 J: c2: =TNTC«2*b2 



c3: =INTCs3xb3/100); c4 : =1 NT Cs4*sp 

c5: =lNTf65xsp/1803: c6: -INTCs6*sp 

c7: ^IMTCs7*ap/100] 

$wf =IMTf CpsX<sl> 5 4 3'pk»(s5+s6+s7) 



2108 
2110 
2120 
7130 
2140 
2158 
2160 
2170 
2180 
2198 
2200 
2210 
2220 

✓ 1001 

2230 
/100] 
2240 
AMI 
2250 
2260 
3/100 J 

2270 c8i *!NTfc I *c2+c3+c4+c5+c6+e7+ 1 3 
2780 c9:r C 9>ju: c0: =c9-bs 
2290 ENDPROC beregn ins 
2300 

2310 PROC fakta 
2320 PAGE 

2330 PRINT CHR*(154)i 
2340 PRINT AT 1,3: ' ' 1 54'Rr ocent sat ser 

19"158"- ,ot. 154 
2350 PR] NT AT 3,3: :'STATSKAT : 
2360 PRINT AT 5.5: " 158' . s 1 , " " 154 " x 

a( de f0rste "* 
2370 PRINT "M58"'.9l. 154 k r . " 
2380 PRINT AT 6,5: " "158"" .$2. " '154" a 

al de naesl e " , 
2390 PRINT 158" .92.' 154 "kr . 
2400 PRINT AT 7,5: ' 158" " .s3 , " " 154" ? 

a( resten 

2410 PRINT AT 8.5: " 15S'" .s4 . " " 154~ 
X al d*t hel*" 

2420 PRINT AT 10.3: "AMTSKRT I " 
2430 PRINT AT 12.5: ""ISS"- .sS." 154" 
x al det he 1 e 

2448 PRINT AT 14.3: "KOMHUNESKAT : " 
2450 PRINT AT 16.5: - 158 ,sB.' "154" 
x at det hel e 

24B0 PRINT AT 20.5: 158' ,s? . 154" 
x avf det hele" 

2470 PRINT AT 22.1: "PERSONFRADRAG "15 
8 " " »P s . 

2480 PRINT "-IS4" SKATTELOFT 159 w t\ 
. 154 

2490 lost en'tast 
2508 ENDPROC fakta 
2510 

2520 PROC udsbrivning 
2530 PAGE 
2540 PRINT AT 1.0: 150Reslskat 13". 
qi. far 158' .aai. 150" 
2550 PRINT AT 3.3: I. Stalskal al 15 
8"",bl 

256B PRINT AT 3.31: cl 

2570 PRINT AT 5,3: 150 2. Siatslcat a 
I 158 '.b7 

2580 PRINT AT 5.31: c 2 

2590 PRINT AT 7.3: " 150 3. Slat»kat a 

T "158" .hi 

2600 PRINT AT 7.31: c3 

2610 PRINT AT 9.3: ' ' 150 '0v,t i ge btdra* 

a * 158* ' .sp 
2620 PRINT AT 9,31: c 4 

2630 PRINT AT 11.3: I 50 'Amt skat af " 
158 ' ,sp 



2640 PRINT AT 11 .31: c5 

2650 PRINT AT 13.3: ' ' l50"Kommunes 
af 158" ,sp 

2660 PRINT AT 13.31: c 6 

7670 PRINT AT 15.3: " 1 50' K i rkeskat af 

158 ,sp 

2690 PRINT AT 15.31: c7 

2690 PRINT AT 17.3: 150Ska« (alt " 

2700 PRINT AT 12,31: ' " 158" " ,e6 . ' ' 158' 

2710 PRINT AT 19.3: Uaerd. af per.onf 

2728 PRINT flT 19.31: - 150- .s* . " 150 " 

2238 PRINT AT 21.3: "Indbetalt skat " 
2740 PR INT AT 21.31: " 158" " ,b* . " 150' 

2750 IF c0<0 THEN 

2/68 PRINT *T 23.3: "Til udbelalin 9 - 

2779 PRINT AT 23,31: ""123~" .ABSCC03 
."158 

2790 ELSE 

2790 PRINT iAT 23.3: "Skal betales 

^flfl PRINT AT 23.31: " "30"" .ABSCcB ), 

2810 END IF 

2820 PRINT CHR*C158) 

2838 tact 'en'ta*t 

2848 ENDPROC udskriunina 

2858 

2060 PROC udskr . wn t ngpr )n | er 
7878 PAGE 

2800 INPUT AT 18.5.1: Bnskes udskr.fl 

paa pr »nler ": ai 
2890 IF a»=-n" THEN afslutn m 9 
2900 SF.LEC T OUTPUT | p : 
2918 PRINT ' 14 ' U!T NAUN 'S COMPUTER 
SERU1CE "15 C01 3 tele f on 
2920 FOR I : M TO 5 DO 
2938 PRINT CHRSU0) 

2940 ENGFOR I 

2950 PRINT "14 1 6 ' 1 8SKAT TE0PG8RELSE 

15 10 "10 
2969 FOR I : =1 TO 5 DO 
2378 PRINT CHR*C10J 

2980 ENDFOR I 

2990 PRINT -"l6'l7Bere 9 nin9 for ".aa*. 

3000 PRINT ' ' 16 101 . Stattkat ai :bl, 

""I6~34kr_", 16"4S"; 

3010 PRINT eiV 16'55kr. 

3820 PRINT 16 102. SI at sk at af ;b2. 

? W ." 16"45"; 

3036 PRINT c2.""16"55kr." 
3840 PRINT ""16-103. Statskat a* :b3. 
" "I6"34kr. . IB 45"; 
3050 PRINT c3. " 16 55kr . 
3060 PRINT ' 16 I8.,.r. b.dr*9 at , SP . 
*"*16 34kr . . 16' 45' ; 
3070 PRINT c4." I6"55kr . ' 
3880 PRINI CHR4C10) 

3098 PRINT "16' lBamtskat af ,s'p . 

"' I6"34kr . ," "16*'45' .* 

3100 PRINT c5." i8'55kr. " 

3110 PRINT 16 10KommuneskBt a* - ,sp . 

18"34kr. , 16 '45"; 
3120 PRINT c6. "16"55kr. 
3130 PRINI "*'16"10Kirkeckat sf ' ,*p , 
"16-34kr . ' . " ■ 16' 45 '; 
3140 PRINT c7. 16"55kr. 
3150 PRINT CHR*C1B) 

3160 PRWT '■■■16"l8Skat lalt 19". 4* 

. 1645"; 

3170 PRINT C8. "16"55kr.~10'- 

3160 PRINT ' 'I6'10U|rdi af personlrodr 

ag . "1645'; 

3190 PRINT su, 'IB 55kr . 10- 

3280 PRINT ""16 lBIndbetall skat 19". q 

t. M6"45 ; 



3210 PRINT b S ." '16-55kr."10' 

3228 PRINT CHR4C 10 J 

3230 IF c0<0 THEN PRINT ' 14' ' " - 16 " 18 
TIL UDBETAIING"16"45"; 

3240 IF c0<8 THEN PRINT ABSCc0)." kr." 

3250 IF c0>=0 THEN PRINT " " 1«T " •"' 1 fi' l 

0SKAL BE TALES 1 6 45" ; 

3260 IF c0>^0 THEN PRINT flBSCc0J." kr . 

3270 FOR | S=| TO 10 00 

3280 PRINT CHR*C10) 

3290 ENDFQR 1 

3100 PRINT " -14--0IT N|4UN 'S COMPUTER 

SERUICE "1S C01) teiefoti-" 

3310 FOR I : =1 TO 2 06 

3328 PRINT CHR$(I8) 

3330 ENDrOR ( 

3340 SELECT OUTPUT d*:" 

3350 ENnPROC ud sk r I y n ; o fiP T i nt er 

3360 

3370 PROC atsliitnina 

3380 INPUT AT 15.5.1: "U.l du P r8u. <« 
en : at 

3390 IF al^ n THEN END "Uk for denne 
9 ana ' 

3400 IF slO'n" THEN start 
3410 ENDPROC afslutntno 
3420 

3430 dataar79: 

3440 DATA 14.4.28.8.39.6.4.2.0.25.5, 7 ? 
7400.62008.66.7 . 14500. 14500 
3450 daloarfle: 

3160 DATA M. 4. 28. 8. 39. 6. 4. 2, 0,26. .7.013 
80 .65500 .66 .7,1 4800 . 1 4800 
3470 dataar81: 

3488 DATO 14.56.29.12.40.04.4.2.8.76.2,. 
7 .87200 .64308 ,66 .7 , 16000 . 1B000 
3430 dot aor82: 

3500 UATrt 14. 4, 28. 8,39. 6. 4. 5. 0.26. 8. .6 9 
5500 .68600 .70.1 7480 . 1 7400 
3518 dataar63; 

3520 OAT* 14.4.28.8.39.8.4.5.0.28.8 6 1 
03200 . 66808 . 73 . 20080 . 1 8700 
3530 dot aar04: 

3540 DATA 14 .4 ,?8 .9 .39 .75.5 .35 .0 .29 .9 . .6 

. 1 8R200 . 70800 , 73 . 22200 . 1 7900 

1558 

3560 PROC uelkommen 

3570 PAGE 

3560 USC graph les 

3590 cjr apb itscreenC 1 ); cleorscTeen 
3000 bOrrlerfB.T: frar.k 9 r 0 und C0 1 
3fil0 textslyietl ,4,8,0); pencolorCS) 
362B p| oltoxt C30. 167." RESTSKAT 1979-84 
J 

3630 pencol or C3): t e xl s t y I e 1 1 ,4 .8 ,0 } 
3640 Plot text C 135.135. for ) f 
3650 pencol or 1 6): t e xt s I yl e 1 1 .4 ,8 .0 ] 
3660 pi ot t exl C53. 100 , Commodore 64') 
3670 pencoLor CI0J; t ex! s 1 yl e C 1 .4 . 0 . 
3680 Pi ot text C 150.68 .' B, ) 
3G30 pencolorCin; t exl st yl e C 2 .6 , 0 .0 ) 
3700 plot text C38.8. "COMflL 80 ~3 
3718 pencol or ( 13); t ext * t yl e C2 , 1 . 1 .0 1 
3720 pt ot text C20. 40. "Commodore - 1 
3730 pencol nr C5): t e xt s1 yl e 1 2 . 1 . 3 .0 J 
3740 Plottext f300. 185. Commodore ) 
-*750 pencol or f 1 ): I e xt sf yl e 1 1 . 1 .0.8 ) 
3760 Plottext C 10.0."S. Schmeltzer 1984 

3770 I : =3000: pause 

3780 clearscreen: tejttscreen 

3790 ENDPROC welkommen 

3880 

3818// alle // s It n mser kan fjernes 
eft «r behag 
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Tape-index 



Af Bjarne V. Jensen 



Dette program har tre formal: For det 
torste fungerer det som en indholds- 
fortegnelse over de programmer du 
har liggende pa bandet. For del andei 
hjaslper det dig med at spole frem til 
det rigtige sled pa bandet, uden al du 
behover at holde oje med bandtsBNe- 
ren (Huskede du forresten at nulstille 
den), For del tredie hjaelper det dig 
med at load'e eller run'e det program 
du ska! bruge uden brug af komman- 
doerne load og run. 

Programme! skal Itgge som det fer- 
ste program pa bandet (fra nr. 000 til 
ca. 015 pa bandiaalleren). Det ferste 
nrigtigen program bar starte lidt Isenge- 
re fremme, f.eks. pa 020, for at gere 
plads til evt. senere udvidelser af tape- 
indexet. 

Inden tape-indexet save's, skal det 
pagaeldende bands data indtastes i li- 
nierne 1 til 19(farst bandtseller-nr.. og 
derefter det korrekte programnavn). 
Der er gjort plads til 38 prograrnnavne 
med "tilharende bandtasllernumre. 
Desuden skal tallet 5.05 i linie 20 rettes 
sa det passer til din bandoptager. Tal- 
let findes ved f.eks. at nulstille band- 
(ailleren, spole frem i 30 sek., og divi- 
dere bandtaslleren med 30. Tallet ma 
hellere vasre lidt for stort end for lllle, 
sa ikke bandoptageren spoler 1orbi det 
valgte program. Nar dtsse ting er ret- 
let. save's programmet, og bandet er 
nu War til brug. 

Nar du f remover skal bruge et af 
programmerne pa dette band, starter 
du med at load'e tape-index og run'e 
det <evt. v.rua. SHIF-RUN/STOP). Du 
vil sa se en numrnereret oversigt over 
programmerne pa bandet, og kan nu 
vselge hvilket program du skal bruge. 
Hvis du skriver 3r, vil du blive bedt om 
at spole frem, og lidt efter om at trykke 
pa play Det tredie program pa bandet 
vil nu blive load'et ind og run'et. Hvis 
du havde skrevet 31, vil programmet 
blive load'et uden run. Hvis du kun 
skriver 3, bliver programmet ikke 
load'et ind. 



Forklaring til de enkelte programlinier: 

1-19: Datalinier med nr. 09 navn 

20: S=spolehastighed (nr./sek.) 

21 : Slet skaerm, skaarmfarver 

77: Lags datalinierne 1-19 

23: Kontrol af data-antal 

24: Oversknft 

25-26: Udskriv navne pa skaermen 

27: Skriv nr. + load/nr. + run 

28: Valg af program nr. (H) 

29: Kontrol af N 

30: Test af ' + r' = run 



31: 


Beregn spoletid 


32: 


Stop og spol frem 


33: 


Nulstil spole-ur 


34- 


Vent til tiden er gaet 


35: 


Stop tape-motoren 


36: 


Slut hvis ikke 1 eller r 


37: 


Tryk pa play 


38-39: Load eller run programmet 


40: 


Skriv stop 


41: 


Vent indtil stop 


42: 


Pause (anti-Prel) 


43-44: Vent indtil play eller spol 


45: 


Data for toad og run 



FUTURE line 



PRjESENTERER! 

TRESES TIL CBM64 

100% dansk lekstbehandlingsprogTam i ren M/C 
med felgende funktioner: 

- Dansk Karaktersait (iE0A«ea) pa printer og skaerm 

- Fuldautomatisk scroll i alle retninger op til 
80 tegn pr. linie. 

. Blok opdelt. (flyt, fjern & slet blok). 

- Kan bruges med CBM printers og tekstbehandlings- 
printere, som JUKI 6100 & Brother HR15. 

- Centrering, Hejre justificering & Definerbar TAB 
(optil 14 stk.). 

- Formaterer mens man skriver. 

- Funktionsforklaring af alle kommandoer, i 
vinduer pk skasrmen. 

- 20K tekst. 

- Directory af diskindhold. 
• Udforlig brugermanual. 

DISK KR. 498,-. Ve jl. 
TAPE KR. 448,-. udsalgspriser! 

Ultimo dec. kommer 100%M/C Arcadespil tilCBM64. 

FUTUREline, Tjaerebyvej 9, 3400 Hillered 
Tlf. 02-110428 

DAN MARKS SOFTWAREHOUSE 

HENVISN1NG TIL NiERMESTE FORHANDLER 



14 



TAPE INDEX: 

1 DATA20 .PROGRArtNAUN 1 . 43 .PRQGRAriMAUN 2 

2 DflTA77.PR06RAT1NAUN 3,91 .PROGRAPINAUN 4 

3 REM SKR1U SELU FLERE DATAL IN1ER HER: 

4 Df*TA0 0 

5 OATA0 0 

20 S=5.85:REM SPOLEHAS T I GHED CNR./SEK3 

21 PRINT CCLRxHOMEH YEL ] " : POKE53280 , 9: PO 
KE53281 .9:OIMNi(39),Tt393 

22 N=N+1:R£ADTCN3,N*CN J: IFT CN 3>-l ANDNKN 
3<> -2"7HEN22 

23 Ct = 1, rCLR/HOnE3CCRSR/D0UNxl2] -: IFNUN 3 
<>" ' THENPR JNTSi, "QATAFEJL'* : END 

24 Nt = " " : PR I NTCHRt f 1 4 r C CLR/HOME 3 

I SHIFT/SPACE3CSHIFT/TJ[ SHIFT/SPACE 3 
[ SH I FT/fl3t SHIFT/SPACE 3E SHI FT/PK SHIFT 
/^PftCEJCSHlFI/EJ[ SHI FT/SPACE3-t SHIFT/SPA 
CE3t SHIFT/1 3T SHIFT/SPACE J L SHIFT/NH SHIFT 
/SPftCEK SHIFT/03 CSHIFT/E3 [ 3HIFT/X3C CRS 

R/OOUN*33" 

25 FOR! =11019: I*=STR*CI It" : IFI >9THENI* 
=RIGHT*CI*.33 

26 PRINT1*;N*CI 3fftBC 1931+19: NiCI+19 3: NEX 

27 PRINTTF*BC5 3 [CRSR/OOUNJNR.+-L=LO«D"SPC 
C 103"NR.tR=RUNt HOME3" 

28 PRINT 't HOME 3t CR5R/OOIdN.x23 . [ CRSR/LEF 
f 3 IN13TAST PROGRAM-NR . ' ; : INPUTN* 

29 PRlN!C*+CHR*CM2 3:N=INrC0ftLCNi )3: IFN< 
1 URN >36 THEN24 

30 R = 2: Ri=R] GHT * C N* . I 3: !FR* = R'THENR =5 

31 T =60x(TCN 3-20 3/S: IFN = 1THEN36 

32 6aSUB<J0:PRINrCS, ' SPOL FRE1V : GOSU 
B43 

33 PRINTC*. OK UENT L IDT" : A=T I : POKE! 
92,1 

34 IFABSCTI-AKTTHEN34 

35 POKE 1 .PEEK LI 3QR32 : GQSU840 

36 IFR*<)1 ANDR<4THENPRINT [ CLR/HUHE 3 " : 

END 

3? IFPEEKC1 )AND1 6THENPRINTC* , " TRYK PP. 
ft PLfiY"rGOSUB43 

38 PRINT T CLR/HO(1E3CCRSR/€OUN«33l LOGO/23 
USHIFf/O] CHRK34 3N*EN 3CHR4C34 IT HOfl 
E3 •' POKE 198. R 

39 FORI =63ir0635:REP-t)K:P0KEI .K:NEXT:END 
48 1FNOTPEEKC 1 3AND16THENPRTNTC* , STOP BP. 

ANOOFTAGEREN" 

4 1 IFNO TPEEK t 1 3AND1 6THEN4 1 

42 FORI = 1TO290: NEXT: RETURN 

43 IFPEEKd 3AND16THEN43 

44 RETURN 

45 OATA-2. .159.13.82,213.13 



KONTROLSUM FOR TAPE- INDEX 




1 


9 


2 


28 


3 


124 


4 


11! 


5 


111 


20 


59 


21 


171 


22 


49 


23 


96 


24 


113 


25 


36 


26 


247 


27 


143 . 


29 


245 


29 


63 


30 


228 


31 


1 1 1 


32 


241 


33 


200 


34 


18 


35 


120 


3fi 


174 


37 


28 


38 


170 


39 


107 


40 


5 


41 


153 


42 


103 


43 


243 


44 


142 


45 


80 
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10 St = "C HOME 1( CRSR/QOUN* 14 3 
20 POKE3B829,25:DrnfttC21 ).BSU53:P=3 
30 PRTNT tP.R/HOME3rCRSRxOOUNx4J 1 

5 SPIL" 

40 PRIrif TrRr.R/IJ0UN*3K8I.U1AF ERIK S0REN 
SEN 19R4 

58 PRIHI 'I<.RSR/ljf>UN:<4HRUS/ON3 UENT MFNS 
.I' ll PI ANDFR * 

00 I'Riiii i r;RSR/tiowi»23 rnsT 9s fur n-r oyt 
iv in rni RiiMor tBHvnen (fx. 12.233 

70 F0RT=1T015 

80 fltfT} = STR*( IN Tt RND( I 3x15 3 M J:FQRY = 1 10 

TsIFfliCY)=rttCTKHEM80 
90 NEXrY:B*l'T3=fl*Cr3:NEXTT:At[lB3= 7 RED 3 
0 IBLU3 

183 PRINT tCLR/HOnE3[LOGO/flHSIUFT/Jtxi23 

C-LOGO/SJ' 
110 FDRT = I TflBrPRINT CSHIFT/-*23 
":NEXT 

120 PRINT t LOGO/23T SH I F T/xx 1 23C LOGO/X] ' 
130 GOTO220 

140 pr in r [ home J tabcm) snyoe p 

153 INPUT n»EJtCRSR/D0WN*12jlNDTAST TA 
L! t CRSR/LEF T*5 ] ; Z; 1 F7 =93THEN44 

0 

163 1FZ<1ORZM5THENI40 
170 FORT=1T016 

189 IF At( T 3= I REU1 0 [ BLU j THENG^T: GOSUB 
410 

133 IFUALCAtCT 3 )=ZTHENR=T 
200 NEXT 

210 Att6J=STRiC2):fl*tR) = CRE03 8 [BLU]' 
220 J=l:K=4:L=l: G0SUB43B 
230 J=3:K=B!L=i:GOSUB430 
240 j=9:k=1?;l=7:gosub430 

250 J-l3:K^ie:L=10:GOSUB430 

268 FORT - 1T01 4STEP4 : Q=Q M : IFUALt A*C T 3 3 <> 

QTHENQ=0:E1-0:GOTO3B0 
278 NEXT:EI=1 

280 F0RT=2fOl5STEP4:Q-Q*I : IFUALf A*C T 3 3<> 

QTHENO -0: E2 = 0:GOTO360 
290 NEXT:E2=1 

300 FOR I : 3T01 6STEP4 : Q=Q+ 1 : 1FUAL ( At C T 3 3<> 

OTHENQ=0: E3=0:GOTO360 
310 NEXT:E3=I 

320 F0RT=4T013STEP4:Q=Q*l: IFUALCA4CT 3 JO 

QTHENQ50J GOTO360 
330 NEXT 

340 PRINT"rCRSR/DOUH*83tRUS/QN3FINT, OU 
KLfiREDE DEN ! " : PRINT OQ DET TOG: ;u: ' 
FORS06 

350 END 

360 PRJNTS$;:FORT=IT06:FDRY=1T013: PRINT" 

;:NEXT:PR1NT:NEXT 
370 U:W*l:lFElMTHENPRINTSi: TRUS/aN3[RE 

Oil. R4KKE ER RIGTIGU 8LU3" 
380 IFE2? ITHf NPRINT [ CRSR/00UN3C RUS/ONX 

CYN32. RiKKE ER RI GT 1G l[ BLU J " 
390 IFE3 = lTHENPRlNT r 'CCRSR/OOUN3rRUS/ON3C 

PUR33. R^KKE ER RIGTIGKBLU3 " 
400 GOTO140 

410 IFUAL(AUABSCT-4)33OZAN0UAL.(A*tT-l 3 
30ZAMDUALCA5CT+1 3 JOZANDUAL CA*CT+4 3 
302 THEN140 

420 RETURN 

430 PRINT CHn^E3^CRSR/OOUN3■ :FORT=JTOK:P 

RlNfTABtL 3A1 r. T 3;PRINT: NEX T : RETURN 
440 IFP=0THEN140 

450 P=P-l:PRINTS1: INPUT TO TAL: : I .0 
460 IF I >15ORO>15THEN450 
470 F0RT-1TO16 
4B0 IFUALt AtC T 3 ) = 1 THEN01 =T 
490 IFUALCAtC T 33=OTHENQ2=T 
500 NEXT:Xi=AtC01 3:FttCQl 3^Att02 3* ":A*( 
Q2 3-X** :GOTO220 
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Sidste Simon 



Af Flemming LerbEek 



Efter nu al have gennemgaet pro- 
grammering. sprites, karaklerer og 
grafik i denne artikelserie om Simon 
Basic er vi naet til sidste del. der hand- 
ler om »lyd« og *andet«, 

Hjaalpeprogrammerne har alle vae- 
ret opbygget, sa det har veeret muligt 
selv at tilpasse dem til egne ansker. 
Dei har vaaret tanken al give ideer vi 
dere om, hvordan omgangen med Si- 
mon kunne lettes. Der er trods alt 114 
nye kornmandoer, som byder sig 111. 

Programme! »Lyd« er ingen undta- 
gelse. Selve teorien omkring lydmage- 
riet er den samme, hvad enten der bru- 
ges Simons Basic etler den ordinsere 
Basic. Derfor vil jeg henvtse til bruger- 
veitedningen side 79-&7, sarnt Pro- 
grammer's Reference Guide side 183- 
208. Men lyd-teorien er ikke let. A! det 
er sadan, kan man bl.a udlsese af. at 
en ellers meget anbefalelsesvasrdig 
bog som den danske »Dus med Com- 
modore 64/Plus-4« a! Kurt Friis Han- 
sen slet Ikke bersrer emnet lyd! 

Endelig skal man da ikke glemme, 
at Simons Basic user guide bringer 1 1 
stder leori omkring lyd og kornmando- 
er. Dem har de mange piraier - altsa 
de brugere af piratkopler at Simons 
Basic - selvfelgellg ikke. Men det ma 
vsere deres problem. 

I den forbindelse kan vi naevne Ira 
Ira redakttonens hverdag, at vi har haft 
mange opringninger fra folk, der hav- 
de problerner med at forsta vore artik- 
ler. Isaer den forste, hvor selve pro 
gramlistningen var af en relatlv darl»g 
kvalitet og derfor pa enkelte afgarende 
steder gav programfejl. 

BLa.kommandoen a i forbindelse 
med DESIGN komrnandoen gav pro- 
blerner for pirateme. De vidste jo ikke, 
som alle vt, der har lasst vore bruger- 
vejledninger, at der skal veere 8, 12 et- 
ler 24 prikker efter a 'et til henholdsvis 
karaklerer, multispntes og almmdeli- 
ge sprites. 

Ret hurtigt finder man ud af. al det 
folk mangier, er at betale for program- 
met Simon og i stedet bruger en pirat- 
kopi. Sa har vi henvlsl dem til deres ko- 



pisl lor yderiigere oplysninger Alle an- 
dre (orespergsler har naturhgvis vasret 
velkomne. 

Lyd over tandet 

Programme! »Lyd« starter medatvise, 
hvad der bl.a. formaes med hjaslp fra 
Simons Basic. Det sker gennem at 
spille en Nile melodi og samtidig arbej- 
de vldere med bastc-programmet. 
Dog kun med een stemme, 

Programmet springer f rem til subru- 
tinen i 61061 -61071 Her sfflttes ferst 
de forskellige parametre og siden 
sarnmenscettes en »musikstreng« , Om 
denne st reng kan man sige, at der bl.a . 
geresbmg a1 F-tasternefra F-1 til F-8. 
Disse taster bestemmer varigheden af 
en node. Altsa hvor laenge den »skal 
holdes« OMe ma man netop der ek- 
sperimentere sig frem. Det nytter nu 
engang ikke at skuile lave musik, hvis 
man samtidig sickier pa arerne. 

Da F-tasteme har vaeret i brug for - 
og derfor har beholdt deres lidligere 
vaardier - er det nodvendigl at nulstiile 
dem. Det sker i lime 61005. F-tasterne 
fra F-9 til F-15 bruges, som vi har set 
det tidligere. bl.a. i grafik-hjaelpepro- 
grammet, til at komme kommandoer- 
ne pa sksermen i en form, der ger det 
muhgt at bruge dem uden at skuile sla 
efter i manuafen hver gang. 

Som ved tidligere hjsefpeprogram- 
mer skal man blot taste sin F-tast t.eks. 
F-10. hvorefter WAVE-kommanOoen 
kommer frem med linienummeret 
1010 WAVE 1,0OGXX3O00 der sa blot 
skal udfyides efter det hjaaipeskema, 
der samtidig kommer pa sksrmen. 
Derefter tastes RETURN og program- 
linien er i hus. 

Naturligvis kan man vaelge andre li- 
nienumre eller behag. da hele lyd-si- 
den normal! fungerer som en underru- 
tine. Sa rettes blot I programmets linie 
61037 

Ugeledes gaalder det for den med- 
delelse. der kommer pa skEermen, in- 
den programmeringen kan begynde. 
Man kan gare spillerummet sterre for 
musikstrengene. Nu er omradet sat til 



de 19 linier mellem 1020 og 1039. Det 
skuile vsere plads nok, idet det er mu- 
ligt al gentage en musiksekvens i kom- 
mandoen MUSIC blol ved at skrive 
strengen op flere gange - 1 den rigtige 
raekkefelge lorstaes 

Endelig gander der ved dette pro- 
gram - som ved de ovnge - at der sa 
laange du laster ind og i det hele taget 
arbejder med programmet »Lyd« som 
en selvstaendig enhed, skal vsere en 
REM kommanclo i linie 60000. Ellers 
gar der kuk i programmet, idet hnien 
gar det muligt at anvende den sakaldte 
overlayteknik, der gar ud pa at starte el 
program fra et andet uden RUN. 

Pa kort form 

Ud over LYD-programmet er der 
nsevnt et program der hedder "Andet" 
Det er taget med for al vise, at der fm- 
des udvidelsesmuiigheder Sa det er 
bare med at kl0 pa, 

Endelig har vi lavet samtlige 114 
kornmandoer i sa kort form som mu- 
iigt. De er beregnet til at kltppe ud eller 
fotokopiere og kleebe op pa et stykke 
karton. Med dem ved slden af sig slip 
per man for de evige konsultationer i 
manualen. 

Kassetteversion 

De tre artikler vi har haft om Simon Ba- 
sic ha r alle laget deres udgangspunkt I 
brugen at en diskstation, Men det er 
endnu de faarreste. som rader over en 
sadan. Fortvivl dog Ikke over det, for 
her kommer en mulig losning pa pro- 
blemet. 

Vi har lavettre programmer, deralle 
tager deres udgangspunkt i brugen af 
en bandstation som lagermedium. 
Dels et program »Simon«, der er star- 
ten pa det hele. Del indeholder et kvik- 
findprogram og et legn-program, nej- 
agtigt som programmet »S«. Forklarin- 
gen til programmet kan du derfor sla 
efter t »RUN« nr. 1, men det forttarer 
sig selv undervejs. 

Dernaest har vi lavet en kassetlever- 
slon af programmet »Programme- 
ring«, sa du kan se. hvad der er lavet af 
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lorandringer (or at fd programme! til at 
kere med en kassettestation. De ewri- 
ge programmer laves om p£ lignende 
vis med undtagelse at programmet 
"Sprites". 

Som du vil se. er der tale om relativ 
la men vigtige forandringer. Dels er 
overJayteknikken ikke mullg. men 
prog ramrnet Kvikf ind gar. at du blot f 0l- 
ger de instrukser, der kommer pa 
skasrmen, s3 klarer din 64 'er og band- 
stationen resten. 

Nar du laeser programmerne ind pa 
et band, lasses forsl programmet »Si- 
mon« Ind. Efter komrnandoen RUN vil 
du se, at der gives aclgang ti I program- 
merne et tor et. Ferste gang skal du 



imidlertid ikke falge mstruksen pa 
skasrmen, men selvfolgelig stoppe 
programmet r>ar del er spolel frem til 
den anviste position og Sci Irykkes 
RUN/STOP knappen, hvorefter f.eks. 
programmet »Programmering« SA- 
VES, pa nejagtig dette sled. 

Nar du senere skal bruge program- 
met, finder maskinen det selv og du 
trykker blot LOAD, nar skaermen be'r 
dig om del. 

Programmet "Sprites* er lavet en 
del om, men fungerer som det viste 
program tor diskettestattor»en. Dei er 
selvfelgelig lidl mere besvaBrligt, men 
byder pa de samme rnuligheder. 

Der er den kralle pa dette program, 



at den ferste gang, du ksrer program- 
met , 1 kke skal indeholde de to RE Ms i I i - 
nie 10 og 20. Nar de tjernes sker der 
folgende: Programme! laver en file 
med navne og numre pa" 52 sprites. 
Der er naturltgvis Ikke noget i dem pa 
nuvcerende tidspunkt, hvorfor den blot 
noterer sig en »-« 52 gange. 

Men nu er filen War , og programmet 
lister, sa de ferste par llmer. hvorefter 
du kan mdsaatte dine REMs igen og 
programmet kcrer fuidl normal!. Hvad 
det kan - bade dette og det foregaen- 
de prog ram - kan du Isese om i de fore- 
gaende numre (RUN 1 & 2). 



LYD: 

61000 REJ1 P0K'E45.PEEKCl?41:POKE16.PtEKC 
175 3:CLR 

61881 COLaUr?3.l3:CSEr0 
61007 EXEC SfWNTS 
B1003 EXEC fill LED 

6 1001 PROC LYO 

81005 FORX = lT08:KEVX . ' : NEXT 

61006 KEYS. '1000UOL 15' 

61007 KEV13. CPU W^iUP>CHft*tt3) 
RI0H8 KEVU.-CftLL ENUELOPE '*CHR*l 13 3 
81009 KEY12. CALL MUSIC *CHRiC 13 J 

61 010 KEY13. 1850PLAY T' 
610M KEY1*,"CSET1 »L'HR*C 1 3 ) 

61012 KEY15."CSEr0-tCHRtCI3) 

61013 DISPLAY: PAUSE 12: CSET0: PR INT "CCLR/M 
HMElKLnR': PRINT C CRSP^DOWNIHUJS 'M 
USIKSTRE«G£NE- ; 
PRINT "SK^L PASSE JND I" 
PRINT l.rMJfNlinRENF SKAL fj£ U3RE PIE 
LI.EH 

PRINT 1020-103=1' 

PRINT '[ CRSR/OOWNJ0NSKER PU AT K0MI1 
E TILBAGE TIL ClENU SI" 
PRINT "CCRSR/00UNx2]CfUL MENU CRSR/ 
UP* 3 J ":£ND 
PROC WAUE 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT" 
PRINT ' 
PRINT " 
PRINT" 
PRINT' 
PRINT ' 
PRINT" 
PRINT " 
PRINT' 
PRINT 
PRINT- 
PRINT 
PRINT " 



i 



61015 

" 61016 
6101? 

61018 

61019 
61020 
6102k 
61322 
61073 
6102*9 
61025 
61026 
61027 
61028 
61023 
61030 
61031 
61032 
61033 
61034 
61035 
51036 
61037 
61038 
61839 
&1010 
610-11 
01912 
61013 
610-14 
610-15 
61016 



TRS" 
SRE I A" 
YISmUP" 
NNTNfU " 
CG GAL" 

H BENS 

Rnit-OE 
DOT" 
NO WWW" 

lUAflrw 

S PZLLUUO" 
T CAATEEE" 
E RTTIFFF3" 

n ruooooT" 

PI 00 RRRg " 

E 0NNBrinnj ; print 

PRINT '1018W/WE 1.00000H00 
PRINT -ICRSRAJPMl -"END 
PROC FNUFXOPt 

PRINT" S R" 
PRINT S fl U E" 
PRINT " r T TJ S L" 
PR INT ' E T E T E" 
PRINT" 11 C ft PI- 
PRINT" N C A I S" 
PSINI E K V N E":PRIN 
T 




G10*7 I J RINT I020ENUELDPE 1,0.0.0. 
6J01Q PRINT f CRSRAlPx*n ": END 

61049 PROP MUSIC 

61050 PRINT ' HUSK N,VflRt*BEUUARI(=iB 

'fit*. . " 

61051 PRINT i ♦ ♦ . . 

61052 PRINT 'C TRSR/fJOWN] I040C YEL JflUSI CtBL 
K I 1 ,rr.RSR/lJP*3]":END 

61053 PROP BILLED 

61054 X=0:l'RINT I' f LR.4I0MEJ "' : PRINTAT r 1 8 , 1 
2J-1.Y0' 

C18S5 P.R!NrOTf5.Z8)"OU LYTTt'R 1 1 1_ IREUJW 
HEN THE SAINTS... IBLKHCRSR/O0UN*3 
.1 : FLftSM2 . 18: PPUSC5: OFF 

61056 PROC SCROLL 

6105? LEFTS 0.0.72.15 

61050 X=Xrl: irx<25rHt*NtnLL SCROLL 

61053 pauses 

61060 END PROC 

61051 PROC SAINTS 

61062 UOL 15 

61063 WriUE 1,00010000 
61060 fNUELOPt 1.0,0,8,0 

61065 pi='CCLR/Tl0n£)12IFUC5lFnE5tFnF5 

61066 fi2ir "G5tF7JCSCFnES[Fl JF5TF1 JG5TF7 
1C51F1 1E5T F13FSiFn65EF3]E5CF3 3C5t 
F3JE51 F3I05{F5JE5CFlJE5CFnD5CFlJC 

5tF2JC5CFl 1 ' 

51067 n24-.V$f F5CF3 3G5r.F3](iStFl)f5lF5]F 
SLF3JE5I Fl ) F5l.pl JB3t F3 IH5( F31C5I F3 
m 1D51 F3)i:5lF3]rsl'FnC5tFnE5FCFUF5 

61000 ft3t= "C5f F73C5LF I K CLRA10MF JG' 
61069 MUSIC I?.fl*fn2*fn74tffl34 
D1828 PLftY 2 

61071 EHP PROC 

61072 Prop hi mi 

ni07i 1-fflN! I it, Kv+HK1t f 1 M*<«^20! FORI - 1 TUNx 
!Wfl(Jfl+l I ): IPAif n^-f THENC^LL LIS 
TEIIEMU 

6I0P1 PRINT i : . ;ftttl) 

6 1075 NEXT 

61076 PROC I 15 ft ME NO 

61077 PR IN' £ CRSR^UOWNJUtLG ET NUdMER *: 
61079 Wrtir?03.63:GFTN:i:PRINTNx: lFNx=7THE 

NP0KE13A .0:ENO 
61079 l_0A0fti(NK),8 

6 1 880 ^PROGRAMMER I NG ( SPR I TES . KPRflKTER 
ER .GRAFfK .LYD .ANDET .STOP . t 

61081 END PROC 

61082 END 
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61000 


218 


61001 


127 


61002 


83 


61003 


93 


61004 


158 


6IG05 


46 


61006 


185 


61007 


62 


61008 


1 06 


61009 


142 


61010 


250 


6101 1 


si 


61012 


51 


61013 


185 


61014 


9 


61015 


163 


61016 


1 54 


61017 


7^a 


51018 


221 


61019 


63 


6 1B20 


17 


61071 


150 


61022 


209 


61 023 


57 


61071 


as 


61025 


219 


61026 


237 


6102? 


26 


61328 


79 


61 029 




61030 


255 


61031 


180 


61032 


181 


61033 


20? 


61034 


213 


61035 


1 10 


61036 


98 


61 037 


207 


6 1038 




61 039 


61 


6 1 040 


2 


6 1 PI 4 1 


75 


61042 


1 36 


61043 


1 16 


61044 


80 


61045 


106 


61 046 


76 


fi 1 CM 7 


1 3 1 


61048 


219 


61049 




6 1 050 


7 1 4 


61051 


79 


61052 


108 


61 053 


37 


61051 


145 


61055 


101 


61056 


132 


61057 


70 


61058 


160 


61059 


253 


51060 


152 


61061 


81 


61062 


91 


61063 


136 


01064 


97 


61065 


250 


6106fi 


134 


61067 


15 


61068 


101 


61063 


30 


61070 


215 


61071 


152 


61077 


234 


61073 


70 


61074 


233 


61075 


130 


61076 


202 


61077 


26 


6I0?8 


103 


61079 


32 


61090 


33 


61081 


152 


61082 


128 








ANDET: 



61 100 

61101 

6110? 



611 03 

61 104 
61 105 



61 106 
6110? 
61108 
61109 
61110 

61111 
61112 

51113 



REI1 P0KE45 .PEEKC 174 V. POKE46 .PEEKt 
i?5 3:CLR 
PROC ANDET 

PR 1 MT "£ CLR/*H0(1E3£ CRSR/OOUN*33tR TA 
GET fl£D FOR AT GIVE DIG EN IDE TIL 

AT U08YGGE PROGRflffllET" 
PRINT "t CRSR/OOUNK23CRLL MENUC CRSR/ 
UPx3J":EN0 
PROC MENU 

PRINT"CCLR/HOP1EJ ,, :NX=20;FORI=1TONX 
:READA$CI ): IFA*tI 3= > " THENCALL LIS 
TEMENU 

printi: " . ■;a*ci 3 
NEXT 

PROC USTEHENU 

PRJNT'CCRSR/OQUNJUtLG ET NUtWER"; 
UAIT203 ,63: GETNx: PRINTNx: IFN*=7THE 
NPOKE198.0: END 
LOAD^*CN«].B 

OATAPROGRAMMERING. SPRITES. KARAKTER 
EP. GRAF IK. LYO.ANOET. STOP.* 
END PROC 



KQNTROlSun FOR ANDET 



61 100 
61 103 
61106 
61109 



210 
721 
733 
26 



51112 33 



61101 

61104 

6110? 
81118 
61113 



253 

234 
130 
103 
152 



61182 104 
61105 70 
61108 202 
61111 32 






PROGRAMMERING: 

55000 REn*x**PR0GRAfU*1ERING**x:x 

55001 KEV1."L1ST 0B00-C CRSR/1_EFT*5] 

55002 KEY2. F I NO NAUN[ CRSR/l.EFT*4 ] " 

55003 KEY3,"0ISPLAY"-t-CHR*t 13) 

55004 KEV4 ."TRACE18 "tCHRSC 13) 

55005 KEY5 , "CALL LABELC CRSR^1.EFT*5J" 
550B6 KEY6 , "E*EC LABEL! CRSR/L£FT*5] " 

55007 KEY? , "PRlNTi0008( CRSRrLEFTx4 J ' 

55008 KEY8. "CFiLL DELETER"tCHR1C 13) 

55009 KE Y9 . "DUMP" »CHRt ! 13 ) 

55010 KEYIl.'TRACE8"+CHRiCl3) 

55011 KEY13."PR0C NOUN! CRSR/*LEFT*4 3 " 

55012 KEY1 3 . CALL NY LINJENR'+CHRiC 13) 
55813 KEY 1 0 . HERGE PR , 1 ! CRSR/LEFTM )V 
55014 KEY1 2 , RETRACE" +CHR1 C 13 J 
55B15 KEY1 4 . 'END PROC t CHR*( 13) 
550 1 6 KEY I 6 . " ?Pt SH 1 F T /£ 3 1 80900 X CRSR 

T*53" 

5501,7 PRINT'TCLR/HOnE)! CRSfM)OlJ.N30U HAR 
F0LGENDE 1 F 1 - 18 : C CRSR^OOWN] " : D I S 
PLAY 

55018 FLASH? , 10 

55019 PRINT"! CRSR/00UJN*2)KLAR S3 CRUS^DN 
K YEL 3 TflSU RUS/OF F 3C BLK 3 " 

55028 MA IT 203 .63: GET A* 

55021 PRINT"! CLRxHOHE J " : PR IMT ATC8.12)"K 
LAR TIL PR0GRW1ERING " : FLASH0 . 10:8 
FI.ASH10.2.5 

55022 PAUSE2:BFLASH0:OFF:COLOUR6,14 

55023 DELfm20:ON ERROR : GOTO55035 

55024 PRINT"! CLRxH0tfE3(1ENU CRUS/ON3CALL 
PIENLK RUS/QFF 3 " ; CHRt ( 17 3; CHR1C 1 ? 3; C 
HRU 17); "AUT01 0.10'; CHR* CIS) 

55025 P0KE198.1:P0KE631 .13: END 

55026 PROC NY LINJENR 

55027 PRINT"! CRSR/0OWN3NYE LINJENUMRE N0 
DOENPIGE HUIS i RUS/ON JRENUrtBERt RUS 

/OFF J ' 

55028 PRINT BRUGES * TRYK C RUS/ON JE YEL JR 
ETURN! RL/S/0FF3! BLK 3 UD FOR FIND'S" 

55029 PRINr iCRSR/130UN3 ON F INDE 
S I L INJERNE: " : PR INT "£ RUS/ON JC YEL 3 
F INDCJNt RUS/OFF It BLK 3 " 

55830 PRINT' C CRSRxOUUlNx 3 3 GOTO F 

I NOES 1 L1NJERNE: " : PRINT"[RCSA)N3t 
YEL3FINDGOT01 RUS/OFF j £ BLK 3 " 

55031 PRINT"(CRSR/OOWN*33 GOSUB 
F I NOES I L INJERNE '• " : PR1 NT "I RUS/ON J 
[ YEL 3 F I NDG0SU3C RUS/0FF3C BLK3" 

55832 PRINT"! CRSR/D0UNX3) GET FI 

NDES I L INJERNE: " : PR INT "I RUS/0N3! Y 
EL3F ] NDGETC RUS/OFF 3! BLK 3 " 

55033 PRINT [ CRSR/DOWNi 3 JRENUriBER0 . 1 8C CR 
SRAIPX3J" 

55034 END 

55835 REM "* PROC FEJL 

55836 IF ERRN = I TMENPR I NT "FOR MANGE FILES 

FEJL I LINJE"; ERRLN: OUT 
5503? IF ERRN=2TMENPRINT"UL0ULIG AABNING 
AF £N FILE I L IN JE ' I ERRLN: OUT 

55838 IF ERRN =3THENPR1N T "GLEMT AF AABNE 
EN FILE I LINJE"; ERRLN:OUT 

55839 IF ERRN=4THENPRINT"F ILES FINDES IK 
KE FEJL I LINJE": ERRLN: OUT 

55048 IF ERRN=5THENPRINT 'APPARAT ER IKKE 
Til SI.UTTET FEJL I L INJE "; ERRLN: OU 

T 

55041 IF ERRN = 10THENPRI NT "NEX T UDEN ET F 

PR F0RST FEJL I : ERRLN: OUT 
55842 IF ERRN =11 THENPRI NT " FORKERT SYNTAX 
I LINJE";£RRLN:Our 

55043 IF ERRN = 12 THENPRI NT " RETURN UDEN ET 

GOSUB I LINJE"; ERRLN: OUT 

55044 IF ERRN r 1 3THENPR I NT " FOR FAfl DATA F 
EJL I LINJE"; ERRLN! OUT 

55045 IF ERRN = 1 4THENPRI NT"LOG I SK ULOULJ 
T TAL I LINJE";ERRLN:OUT 



IL0UL1G 
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55046 IF ERRN= 15THENPR lNT'OET TAL ER FOR 

STORT FEJL I LI NJE ' : ERRLN: OUT 
55347 IF ERRN-16THENPRINT"QER ER IKKE ME 
RE MEMORY FEJL I L INJE ' i ERRLN: OU T 

55048 IF ERRN= 1 7THENPR INT "DU SKRL DEFINE 
RE F [X 3 F0RST FEJL J LINJE" ; ERRLN: 
OUT 

55049 IF ERRN=18THENPRINT 'RET Qf/MCX) ER 
FOR LILLE FEJL I LINJE" ; ERRLN: OUT 

55850 IF ERRN=19THFNPRINT"REr OIMCXJ ER 
BRUGT EN GANG FEJL J L [ NJE" ! ERRLN: 
OUT 

55051 IF ERRN=28THENPR1NT"N£J . IKKE OIUI 
DERE MED 0 FEJL I LINJE" ; ERRLN! OUT 

55052 IF ERRN = 2I THENPR INT 'NEJ , IKKE I 01 
REKTE flODE FEJL I LJNJE';ERRlN:OUT 

55053 IF ERRN=22THENPRINT"BRUGT FORKERT 
UAR1ABLETYPE FEJL I LINJE" ;ERRLN:Q 
UT 

55054 IF ERRN =23THENPR I NT "<JAR I ABLEN > 25 
S TEEN FEJL I LINJE" : ERRLN: UU T 

55855 NO ERROR 

55056 END 

55057 : 

55058 : 

55059 PROC DELETER 

55060 INPUT [ CLR/HOflE 3L CRSR/OQUNX2] START 

LINJE " iSL 

55061 INPUT "[ CRSR/DOUN*23SLUT L I NJE " .* EL 

55062 PROC 620TO 

55063 PR INT f LLR/HOilEJC CRSR/OOWN»3] *' : 
$5064 I FSL >EL THENPR INT't CLR/HOME 3 " : LIST 
55065 FORI -SLT0ELSTEP1=X=X*1 

55086 IFX>9THENCALL GOTO 

55067 PRINT 1: NEXT 

55068 X=X+1 

55069 FROC GOTO 

55070 PRINT -SL = ' : I: ":EL= -:EL; ":CALL G20T 
Q" 

55071 PRINT 'L HOME 3 1 : : POKE 198 .X 

55072 FORJ=l TOX: P0KE63I *J . 13: NEXT 

55073 END 
55074. PROC MENU 

55075 N=7: 0 1 MN*(N J: FORI = 1 TON: READNSL I 3: N 
£XT:COLOUR6.14 

55076 PRINT t CLR^HOflE 3C BLK JPROGRflM t RUS/ 
ONK YEL 3KU iKF JND[ RUS/QFF K BLK J NUM 
I1ER OG NflUN P.1 SIMQNHJf LPENt CRSR/D 

mm" 

55077 FORI =1 TON: PRINT J; - ' ; N*t I ):NEXTI 

55078 INPUT-CCRSR/OOWN)rBLK3FJNTJ NUMMERC 
YEL 3 " ; J .'PR JNT"'C BLK3" 

55079 IFJ410RJ>NTHEN55B76 
55090 IFJ=1THEN55090 

55081 ]FJ=77hPNPRINT"ECLR>'HOM£]TP.k FOR N 
U'TENO 

55082 IFPEEKC 1 J055THENPR1 NT"C BLK3TRYK L 
RUS/t3N3lYEL3ST0P( RUS/OFFJtBLKJ P3. 
RECORDER*' 

55083 IFPECKCI 3O55THEN55083 

55084 PRINT [ CRSR/tJOWN J [ BLK 3SPOL TILBftGE 

TIL NUL OG [ YEL 3CRUS/QN3TASTC RUS/ 
OFF3I. BLK 3" 

55085 POKE 198 ,0: WA[ 1283 .63 

5508S PRINT "£ CRSR/UOUIN3 1 BLK3 TRYK C RUS/ON 
HYF.LJF -FUDiRU5/OFF3lBLK3 ':SYS6352 
4:ft=TI 

55087 IFA8SCTI-A J<CJ-1 )x6001 HEN55087 
550B8 PRIN T"t CRSR/DQWN] [ BLK3 TRYK [ RUS/ON 
3C YEL3STOPC RUS/TjFF3t BLK3 PJ RECORD 

ER " 

55083 SYS64653: IFPEEKC 1 3O55THEN55009 

55090 PRINT-CCLR^40riE3":CHR*C17 3:CHR*C17 
3;CHRlf 17): "LOMD , *;CHR4C34);NiCJ3:C 

HRK343;CHR*C19 

5509 1 POKE 198. l:P0KE631 ,13: END 

5589? OATAPROGRAMMERING .KARflKTERER .GRAF I 

K , t. YD . ANOE T. SPRITES. STOP 
55093 END PROC 



55000 


185 


55001 


21 1 


5500? 


98 


55903 


183 


55804 


114 


55005 


42 


r>5086 


52 


55007 


100 


55B08 


231 


55002 


221 


55010 


III 


55811 


167 


55012 


233 


55013 


172 


55314 


215 


55015 


254 


55016 


85 


5501? 


116 


55B18 


71 


55019 


39 


55020 


252 


55021 


165 


55022 


103 


55023 


216 


55024 


110 


55025 


75 


55026 


104 


55027 


85 


55028 


166 


55B29 


69 


55030 


159 


55031 


45 


55032 237 


55033 


224 


55034 


129 


55035 


35 


55036 


84 


55037 


22? 


55638 


157 


55039 


229 


55040 


152 


55041 


202 


55042 


182 


55043 


200 


55044 


142 


55045 


165 


550-56 


223 


35047 


160 


55048 


109 


55049 


104 


55050 


100 


53051 


130 


55052 


167 


55053 


238 


55054 


130 


55055 


168 


55056 


129 


55057 


58 


55058 


58 


55059 


93 


55860 


120 


55062 


145 


55062 


33 


55063 


222 


55064 


88 


55065 


161 


55066 


179 


55067 


158 


55068 


61 


55069 


62 


55070 


248 


55071 


34 


55072 


85 


55073 


129 


55074 


234 


55075 


233 


55076 


253 


55077 


134 


55078 


73 


55079 


96 


550B0 


38 


5508! 


57 


55082 


118 


55883 


73 


55084 


208 


55885 


139 


55086 


181 


55087 


55 


55088 


67 


55089 


53 


55B90 


185 


55091 


75 


55092 


202 


55093 


152 











SIMON B-VERSiON: 

1 CALL TEGN 

2 PROC L15TEMENU 

3 N-7:0IMNMN):F0RI -lTON:REf>l)N4[ I 3: NEXT: 
C0LOUR6.I4 

4 PRINT '[ CRSR/DOUN][ YEL 3[ RUS/ON3NULST 1LC 
RUS/OFF3CBLK] Tt LLER P) B3NDMASK1NEN 8. 

C RUS/ON 3 1 YEL 3 T AS Tt RUS/OFF J [ BL K 3 " 

5 POKE198.0:UWiT203,63 

B PRINT '[CLR^MOMEK BLK 3PROGRAM t RUSXINjC 
YEL3KUIKF INDC RUS/OFF 3t BLK 3 NUMMER OG N 
AUN PJ SlMONHJC LPENt CRSR/OOUN3 " 

7 FORI = 1 TON: PRIN T I ; " :N*CI):NEXTI 

8 I NPUT '[ CRSR/'DOUJN3I BLK 3F I NO NUMMERI YEL 3 

: I:PR1NI' E BLK 3 " 

9 IFJUORJ WHEN6 

10 1FJ = 1 T HE N 1 8 

1! IF J =7 THENPR 1 NT' 1 1 CLR-/HOME J TAK FOR NU": 
END 

17 IFPEEKC 1 3055THENPRJNT 't BLK 3TRYK t RUS 
/ON 31 YEL JSTOPt RUS/OFT It BLK ] P3 RECORD 

ER" 

13 IFPEEKC 1 3055THEN13 

14 PRINT"! CRSR/OOWN 3C BLK 3 TRYK [RUS/ON3TY 
£L3F.FWOERUS/UFF3[BLK3":SYS63524-:m=TI 

15 IFABSCTI-A 3<C J-t 3»608THEN15 

16 PRINT"! CRSR/tJOUM It BLK3TRYK [RUS/ONJtY 
ELJSTOPCRUS/OFFICBLKJ P3 RECORDER" 

17 SYSG4659: JFPEEKU 3055THENI7 

18 PR I NT "T CLR/HOME }' : CHR4C 17 i: CHRif. 173:C 
HR4t 17 J: "LOAD " : CHRiC 34 3: Ni ( J ) : CHRi (34 
);CHRit 19) 

19 P0KE198.UP0KE63I .13: END 

20 DAWROGRftMMER I NG . K P-RAK T ERER . GRAF I K ,L 
YD. ANDET. SPRITES. STOP 

21 ENO PROC 

22 PROC TEGN 

23 PRINTC a.R/HOME3':FORX=0TO15:COLOUR X 
. 1 4: FORY = l TO30: NEX f : NEWT 

24 H1RES0 „ 14: RFC 80 ,90 . 1 40 .28 . I : TEXT85 ,93 
.«23*2]IMON BASIC « 64\l,2,8 

25 PAUSE? 

26 NRM 

27 MEM 
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28 DESIGN? ,*E800*27*I 



. .BBB8BB 

.B.B 

B..B 

88BBB3. . 
B..B.... 

B - -B 

B - .BBBBB 




37 0ESIGN2 1 tE8B8t29*8 



3B e 

39 0 

40 o 
II 0 

42 o 

43 0 
14 B 

45 



.BBB. 

. .8. a... 

. -BBB . . - 
.B . . .6 . . 
BDBBBBB . 
BB . . .BB. 
BB. . -8B. 



46 CALL L1STEI1ENU 



KONTROLSUn TOR SIPION B-OERSIQN 



SPRITES B- VERSION 

10 RE" DIfIL 1*154 J:EXEC END 
28 REI1 L1ST-3 



38 
40 
50 
60 
70 



80 
90 



F5.= litXEC LISiEriENU 
CALL T5HIFT/E3 
PROC L IStEMENU 

Ne33:£J3L0URB. 14 

IFPEf.KCl 1055THENPRINT T BLK 3 TRY* C RUS 
/0+U[ YEL3STOPC RUS/OFF3rBLK] f J 3 RECORD 
ER" 

1FPEEKC1 K>55THEN80 
IFF5 = 1 TH£NF5=0: END PROC 
100 PRINT , (CLR^OnE3£CR5R/OOWN*3J[CRSR/R 
IGHT*33SPOL TILBAGE TIL NUL - [ RUS/O 
N3T YEL 3 TASTC RUS/QFF3C BLK 3 HUlS KLAR" 
110 POKE19B.0:UA1T203.63 

120 PR INT 7 CLR/HOME H BLK 3 PROGRAM C R"JS/€N 
3C YEL1KUIKFJNDI RUS/OFF 3L BLK J NUflMER 
0G NAUN P3 SIliONHJCLPENtCRSR^OaWNj' 

130 FORI-- 1 TON: PPlNTIi 'fUitJ ).:NEXTI 

148 IFCM1HENEND PROC 

150 INPUT ■[UR.SR^DOWNJtBLKjFIND NUIWERC YE 

LJ"; j:PRINT'[BLK3" 
IfiS IFJ<10RJ>NTHEN1?8 
178 IFJMTHEN220 

180 PR tNT't CRSR,"DQUIN][ BLK 3 TRYK r.RUS/0N3C 
YEL 3 F . FWOE RUS/'OFF )C BLK3 " 1 SY5B3524 : A = 
ff 

190 lFA8S(Ti-AKtJ-n*10aTHEN190 

200 PRINT [ CRSR./0QUN3C BLK 3 TRYK tRUS/0N3t 

YELlSIOPtRUSxOFFHBLKJ PI RECORDER'' 
210 SYS64859: IFPEEK( 1 3055THEN2 10 
220 IFF1=1THENF1=0:EXEC SAUL 
230 1FF2=1THENF2=0:CALL OK 
235 IFF 3= I THEN CALL OK 
240 lFF=iTHENF=0:C*LL C SHIF T /E3 DATA 
250 CALL 0PST1LL1NG 




1 


228 




202 


3 


233 




4 


209 




139 


6 


253 


470 


7 


134 


8 


73 


9: 


t43 


188 


10 


200 


11 


57 


12 


118 


430 


13 


168 


14 


181 


15 


148 


580 


ie 


67 


17 


146 


18 


185 


510 


19 


75 


20 


202 


21 


152 


520 


22 


227 


23 


166 


24 


245 


53B 


25 


252 


26 


203 


77 


222 




28 


20 


29 


72 


30 


248 


540 


31 


248 


32 


72 


33 


248 


550 


34 


248 


35 


72 


36 


20 a 


560 


37 


22 


39 


12 


39 


248 


570 


40 


12 


41 


24 8 


42 


92 


580 


43 


32 


44 


32 


45 


208 


590 


46 


203 










500 



260 PROC JOY 
270 F3=t:EXEC INPUT 
280 PROC I GEN 
290 !FX<0THENX=0 
300 1FX>320THENX=320 
310 IFY<BTHENY=0 
320 IFY>218THENY=210 
330 RL0CP10B SB.X.Y.2.1 
340 IF J0VM1HENY=Y-3 
350 IF J0V--2THEWY=V-3: X=X*3 
360 IF J0Ys5TMENY=Vt-3 
370 IF J0y=4TMENX=X«3: Y=Y*3 
390 IF J0Y=7THENX-X-3 
390 IF J0Y=6THENY=Y*3: X-X-3 
400 IF J0Y=3THENX=X~3 
410 IF J0Y=8THENX=X-3: Y=Y-3 
420 IF JOY=!28THENfiOB OFF SB:NRfl:CALL OP 

STILL ING 
430 CALL I GEN 
440 PROC INPUT 
450 EXEC L IS TEtfENU 

460 INPUT "CCRSRyOOUN*23HUILK£N SPRfTE 
AL UiSES";SB* 



E SK 



H 



SB 



I=1T053: INPUTpI .LI*Cl 3 
rtsLl =L I- I: CLOSE 1 
1 OPSTILLING 
610 PRINT ■LLLR,HOnEJ[CRSR/DOUNa3 3F0LGENO 

E riULIGHEOER GIUES:":OFF 
620 PRINT Ti:RSR^00WN>2] £ RUS/UN3C YEL3 1 . 

CBLKURUS/tiFF) LA-J EH NY SPRITE" 
630 PRINT TCRSRyOOUNJ I RUS/UN 31 YEL 17 .[ 8 

LTOIRUS/OFFJ HENT SPRITE FRA LAGER* 
640 PRINT CCRSR/OOWNJ t RUS/0N3E YEL 3 3 A & 
LKHROS/OFFJ LAU NYT PROGRAtf FRA 5PR 
I FELAGER * 

650 PR INT "C I". RSR/DOWN ] [ RUS,-ON 3 1 YEL 3 4 . [ B 
LK3L RUS'/UFF 3 BEUAEG SPRI TEN dEO JOY- 
SI I CKEN " 

660 PRINT -CCRSR/DOWN: C RUS/IJN JC YEL35 . t B 

LK 3C RUS/OFF ] OUERSIGT OUFR SPRITES' 
670 PRINT tCRSR/OOWNJ ( RUS^t3N]l YEL J6 -C B 

LKK RUS/OFF ] UU AF PROGRAMME T" 
680 PAUSE 7: POKE 1 99 .0: WA I T703 ,63 : GETA* 
690 A=UALCrti ): IFA = 1 THEN CALL NY 
700 IFA=2THEN PR INT "t CLR/'HOME} " : F2 = l : CAL 

L L ISTEHENU 
710 IFA=3THEN F =1 : PRINT "I CLR./H0I1E3 " : CALL 
LISTEMENU 

778 1FA = 4THEN PR I NT '[ CLR/HOMEJ ' : CALL JOY 
730 JFA=5THEN C • 1 : PP 1 NT "[ CLR/HOHE 3C CRSR/* 

DOWN JF0LGENOE SPRITES ER OEFINERET": 

EXEC LISTEHENU 
740 IFC=ITHENC=0JWAIT203,63: CALL OPSTILL 

ING 

750 IFA=5TH£NEXEC END 

760 1FA : 6THEN CLOSE I : CL0SE1 5: END 

770 PROC NY 

780 PR I NT t CLR/HOUE 3C CRSR/OOUN 3 NYDEF INER 
ING CCYEL11LBLK3 ) ELLER F«fRDIGG0RELS 
I CT. YEL 3 8C8LK3 ) XNPUTD 

790 PRINT LLRSR/DOUNJH0JOPL0SN ING <0) EL 
LER MULT iFARUER 1 1 )"!: PAUSE 1 

800 POKEl38,0:WAiT203,fi3:GETAt 

810 OP=UALfA*):PRINTAt 

820 lNPUr , [t:RSR/OaWN35PRITENS HOVED-FARV 
E C0-15J"sF0 
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S30 IF0P = tTHENINPUT"lCRSRy-DUUIN3HUILKE MU 
LTIFARUER F1.F2 (0-15) ,C CRSR/LEF 

T*53";Fl ,F2 

640 CtlOB F0.F2:N=32:IFO = 1THEN CALL CALL 

850 PROC NY PRIORITET 

860 5B*=' 

870 C=l:EXEC LISTEMENU 
888 C=0 

880 FL*SH7.2B:pRINT ICRSR/OOUNJGIU SPRTT 
EN ET CRUS^ONJC YEUNR.CRUS/OFFJCBLK] 
, t RUS/ON ] [ YEL JNAUNC RU5/OFF 3 1 BLK 3 " 

908 INPUTn,SBi:U4CMJ=SB*:QFF 

318 S2=(64*32 3*49152 

920 PROC CALL 

930 IF0=8T HEN CALL S 

310 iFCJpre THEN CALL DESIGN SPRITE 

950 IFOP=l THEN CALL DESIGN M-SPRITE 

960 PROC Kl.AR 

978 PR I NT: PRINT" t CRSR/DOUlN )SKAL SPRIT EN 
OUER C0) ELLER UNDER SKAERMBIL 
LEOET ( l 3 

980 PAUSE l SUA! T203. 83: GETftt 

990 SP = UAHA* J 

1000 HIRESB.1 SCI1CIB F! ,F2 

1010 REC 170,145.58.52.1 

102B MOB SET 8 .32 ,F0 .SP.OP 

1830 MI1QB fi. 8 .0.200.200 .3. !0 

1040 TEXT2*.20.*2]x2)LAR? SAx23 TAST ' . 1 . 
2,10 

1850 PROC PEEK 

I860 IFPEEKC197 J-64THEN CALL PEEK 
1070 NRPliMOB OFF 0 

1080 IFFL= 1 THENFL =0: CALL OPSTILL ENG 
1090 PRINT CCRSRxQOUNJOIL PU GEMHE SPRIT 

EN? ( JxN 3":POKE;i98 ,0:PAUS£1 
110B WAIT203.63:GETS* 
1118 If- St = J ' THENFI =1 '• CALL LISTEHENU 
1120 PRINT~tCKSRxlKJUIN3UIL OU LAUE EN NY 

SPRITE? CJ/N) :PDKEI98.0 
1130 S4="-:UIAIT203.63:GErS* 
L140 IFSt^J THFNCALL NY 
1150 IFSiO J' THEN CALL OPSTiLL ING 
1 160 PROC DESIGN SPRITE 
1170 LN=!53B:PRINT [CLR/H0HE3" 
1 180 PROC LN 

1190 PRINTLN: a 

1200 LN=LN*10: IFLN< I 61 0THENCALL LN 

1210 PRlNrAT(7.24)'B = ";F8; 

1220 PRINTATC7. 22 )' RETURN EFTER HUER LIN 

JE SLUT MED": 
1230 1FD=ITMEND=0 
1240 CALL RUN 
1258 PRCC DESIGN fl-SPRl 7E 
1260 LN = 1590:PRINT '( CLR«/HOME3~ 
1270 PROC LN 1 

1280 PRINTLN; - O V 

1230 LN : LN»10: IFLNU518THENCALL LN 1 
1300 PRINTAn7,22)' , RETURN EFTER HUER LIN 

JE SLUT heo"; 
1310 PRINTATC7.0)"B:";F0;" C=";F1:" = 

F2S 

1320 PRJNTATC0 .24 '} CALL OPSTlLLING'; 
1330 PROC RUN 

1340 FLASH 7 .10: PR I NT AT C0 ,23 )" I YEL J CALL K 

LARf 8LKJtCRSR/UP*33":ENU 
1350 PROC OK 
1360 0PEN1 .1 .0.SB1 

1370 FURX=0TO52: INPUTbI .Yl'X):NEXTX 
1388 CLOSE MPU*32*64*49152:S3=P0 
1390 FORX=0TO62: Y=YtX PUKEPO+X . Y : NEXT 
1400 IFF r lTHEM7 =8: CALL I SHlFT/EiDATA 
1405 IFF3=t rHENF3=0:END PROC 
1410 CALL KLAR 
1420 PROC SAUE 

1430 OPEN! ,1.1 .GBi!F0RX^S2TUS2+62:Y=PEEK 

CX ):PRINT»1 , Y:NEXT 
1440 CL05E1 



1450 END PROC 

1460 PROC ENU 

1470 PRINT C CRSR/DOUN JSPQLET t RUS/13N3C YE 
LjriLBAGEf RWS/OFF H BLKJ TIL 394? HU 
IS JA TAST £ YELJt RUS/ON 3 Jt RUSxOFFU 

BLK]" 

1480 GETSU*: IFSU*=""THEN148B 

1490 IFSUiO J THEN CALL OPSTILL ING 

1510 OPEN1 .1.1,' LISTE" 

1520 FORKMT053: 1FL I* t X 3 = " " THENPRlNTn 1 .C 

MRiC45 I : NEXT: CLOSE 1: END PROC 
1530 PRlNTol .LI*fX3:NEXT 
1548 CLOSE1 
1558 END PROC — 
1560 PROC S 

1570 PRINT"C CLR/HOME]'* 
1580 DESIGN OP. 51288 

1590 o 

1600 e 

1610 o 

1620 o 

1630 O 

1640 0 

1650 O 

1660 0 

1670 0 BBBBBBB. . 

1680 ...... .. r BBBBBBB.. 

1690 O BBBBBBB. . 

1^00 0 BBBBBBB. . 

1710 e BBBBBBB. . 

1720 0 BBBBBBB. . 

1730 o B0B8B. - . 

1740 0 BB8BB . - . 

1758 o BOB 

1760 0 B 

1770 0 B 

1 700 fl . BBB 

1790 e HBBBB 

1800 CHUB Fl ,F2 

1810 IF FL=1 rHFNFL=0:CALL KLAR 
1820 FL = US2 -51 280: CALL S 
1830 PROC CSH1FTVEJOATA 

1840 GA-8:PRINT C CL R/HOME J[ CRSR^OOUN JHU 1 
LKEN LINJE SKAL SPRI TEDATA BEGYNDE 
I " : INPUT NR* 

1858 NR=UOHNRi }' PR INT [ CRSR,-00WN*5 ] ~ 

1868 FORX=0TO62: IFX-GA THENPRI NTNR; "DATA" 
I :GA = GA»-8:NR=NRM0 

1870 PRINT PEEKCS3»X); 

1880 1FX<>GA-IANUX< >62THENFRI NT ' t CRSR/LE 

FT3,"i 
1838 IFX=GA- 1 THENPR INT 
19B0 NEXTX 

1310 PRINT:PRINT CALL OPSTlLLING" 
1920 PRINT' C HOME 31 CRSRyOOWN*53HUIS OAT A- 
L1NJER SKAL BRUGES I PROGRAM TAST 
t RUS-'ONl f YEL JRETURN[ RU5/-OFF JC BLK3 S 

YU ; 

1930 PRINT' GANG E " : CLOSE 1 : CLOSE I 5 : END 
KOMTROLSUM FOR SPRITES 8-UERSION 



10 


196 


20 


73 


38 


100 


40 


37 


50 


282 


68 


731 


70 


1 19 


80 


172 


90 


191 


100 


135 


110 


139 


128 


253 


138 


249 


140 


240 


158 


73 


160 


23B 


170 


243 


180 


181 


190 


195 


200 


67 


210 


189 


220 


106 


230 


1 13 


235 


254 


24 0 


94 


250 


149 


260 


106 


270 


218 


280 


216 


290 


167 


308 


111 


310 


169 


320 


189 


330 


64 


34B 


44 


350 


166 


360 


47 


370 


167 


380 


48 


390 


170 


400 


43 


410 


173 


420 


159 


430 


217 


440 


58 
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Programmering 

KEY »nummer«, »kode« 

programmering af F-keys 

DISPLAY vise' KeyKodning 
AUTO slart, aligning. Automatisk numrenng al pro- 
gram! inter. 

RENUMBER start, stignmg gennumienng a' pro 
gramllnier 

PAUSE -meaceietso". anta) sekunder 

CQOTO golo etier ud'egnmg 

RESET in lenummef Laos data da besleml lin* 

MERGE -program* ydre enhed eks dis* 6 

PAG En opdeiing al program i n-anial tmfer. 

OPTIONn vise' om del er en &mon Bas'C O'dte. 

OELAY nprograrn scads nastignofl V255 

FINOcode Hiler FIND -strong- 

TRACE n. Udlei stigfinding 10 =pa 0=a' 

RETRACE. Gemndaaat TRACE after Diogromrel- 

rung 

DUMP vis alle vanaoler 

COLD koto start of Simon Basic 

DISAPA. Fa en pfogramlmles ii&ming usynitg 

SECUREO .icfct'Oi DISAPA. 

OLD genllnd et NEW ei program 

Tekat manlpulerlng. 

INSERT (-subst'eng-. -r>oved9treng-,D> p = posi 
iron ogsa logisk sammeniigning, 
INST(«GuD5Heng-.'novedst'eng-<j>)ovetskrive' Ira 
position p 

PRINTPLACE('auB5ireng...hovedstreng.|ba6lern 
hvor oubsltengen ei 

DUP l-stiang-.n) dubliker strengen n gangs 
CENTRE -kat akterslreng- centre' en streng paen ii- 

nie 

PRINT AT (kolonne Imia) »karakte«t'eng« 

USE" *\ yarlnble: PRINT tor- 

mater e» raekke numre. 

FETCH •komroiKarakter-, man. a anlai karakiorer, 

destinations strong 

INKEY et «n at F-tasteme i b- uy° 

ON KEY -karakle'eCh.QOTO lime nummc 

DISABLE aibryd ON KEY. 

RESUME genotabie' ON KEY. 

Numerlsk hjslp 

MOD(x.y) division at io hetta* - feat vises 
DIVIx.y) starsie f ffiHesdivlsoe 
FRACinunvnor) relurneret decimalb'Bken 
PRINT % bina?' t numme' returnerer decimailai. 
PRINT $ hex-nummor returners' dec-maltal 
EXORtn.nljudtB'er en logisk exor mellem to numre. 

Diskette kommandoer 

DISK, »operal»on- ekst DISK-N0:TEST.01«' 
DIR* 



4^u 


2ld» 


460 


220 


480 


ts? 


490 


35 


510 


152 


520 


36 


540 


129 


550 


67 


570 


?09 


580 


39 


680 


148 


610 


3 73 


630 


42 


640 


18 


660 


158 


670 


226 


690 


123 


700 


179 


728 


142 


730 


61 


750 


146 


760 


70 


780 


19 


790 


2 


810 


4 


B20 


110 


840 


160 


950 


77 


670 


44 


990 


37 


900 


186 


910 


179 


930 


129 


910 


102 


360 


223 


970 


10 


330 


208 


1000 


47 


1020 


S58 


1030 


239 


105B 


113 


1060 


154 



1090 214 I 090 221 

1118 72 1120 145 

1140 70 1150 80 

1170 197 I 1B0 79 



Gratik 

COLORskaamn rand 

HtRESpiolfarve. baggrundsfarve Ioitiafcseser hejop- 
loaning 

RECx.y,a,B,ploliypo *.y = e v hjame A,0 = n«3 h h| 
plottype : s'et 

HI RESoiotlarve saggrunostarve' MULTtfarve v, 
>arve2. !arve3. 
NRM iilbage Id lavopiesmng 
LOW COLiarwe 1 . farve2. larve 3 vaaig nyo larver i tu- 
rns 

HI COL iilbage til original valgel 
PLOTx,yjDlollype saHiar punkl (320 x 200 optos- 
nmgl 

TEST(*.y>relumeier en variabel med *,y 
LINElra x.y.m x i,yi.ploitvpe 
CIRCLEx.y.xt .yrptotlyoe x,y = camrum xr.yr = ra- 
dius 

APlC«.y.slartwinkatslutvlnkel,slignlng.)i(y' .plottyoe 
tegner cirkeliidsnll 

ANGU,y.vinkel,xryr.ploMype tegner -adlus al cf- 
k(H 

PAINT, .v D'ortype udlyld el omrade i Destemt la've 
BLOCKn,y,xl.yl,t)lonype legn en Die* i larve 
DRAW nnnnnn. ..9" ,x.y,plollype legn en (igur 
ROTvinke*. rjtBwreise vig en ligui i anoen vinkei og 
sterretse 

CSETn vajlg Iilbage ID stosM g»atiskc sfcaarm/vselg 
karaktersaat 

CHAR* y.pokokode.ptoiiype,st«rtelse sart en Harsh- 
tor pa grafts* skasfm 

TEXT»,y.»(konI'olka'flklera/b!6l'ang-.plotIyoesior- 
relse, a!stand meliem oogsiaver 
BCKONDSsKaaimfaivo. baggrundsla'vene bl. b2. 
b3 

FLASH ifltve.nastignedcrtmk 
OFF blink vart 

BFLASHnastigned tarvev(arve2 shaarmkant skil- 
lerfarve. 

FCHRimie koionne.btetxJe.ayDaeiokexocle tyla ei 
omrafle med besiflfni xarakler 
FCOUine.kwonnej)fedde,dybde,farve ny karakler 
larve. 

FILL som FCHR men i Destemi farve 

MOVBinie^lonneKredue.dyDde.dr^ dr,dc=ny 

pos al ov.v.hiameeller Myinmgen. 

I N VI m lo .koionne ,breddQ.dyboe 

(SCROLL) 'etning.Wrap ei BJank.nnle.dybdeslul- 

tmie^lul dybde 

SCRSV2 l 8,2.-navn,S,W« sk'lv data III disk 
SCRL02.8.2>navn. hen( data I'a disk 
COPY papirkopi al yralikskaanr. 
HflDCPV papukopi al lavoplBsnlngsskaBrm 



Sprites 

DESlGNc.adrogsec = 1 Sfl mullilar^ c =0 Sa hfl|- 

oplasning. a et. a— .. deslgr*- 

mwistei 

CMOBIa've i 'a tve2 multitarver pa sp'He 

MOB SETspnlBnummer, memoryulolt.tarverjriorh' 

let.oolesning. 

MMOBspritenummer.llyt Ira »Vyl ( litx2,y2,sta»e!se 
nastigheo 

RLOCMOBspnrenummer.tlyt ill x,y.Bteffelse.na 

'-!■■■! (Ilv W ny position). 
DETECTn kCllsionaetektor War. 
CHECK - IF CHECKisprite.^priiey) = OTHENgo' 
et alter andel 

MOB OFF?.pt,!enumrnerslukker sp'.ten 

Karakleror 

MEM G»< klar Id nydeftnenng al tcarakterer 
DESIGNZ^EOOO * eti " Sen c pokeKOden lor den 

karakie' de' skai nydelinetes 
a ...... . J; :. _ ■"■■□■tier 

Strukluretat program marl ng 

IFbetingetseTHENsafiO ELSEIalsk 
REPEATicopUNTILt-cimgelsa oglyidl 
RCOMPsandEJselaisk genkald den sldste 
IF...THEN ELSE 

LOOP program lokkeEXIT.IFbelingelsooplyldi END 
LOOP. 

PROC navn giv et ptogramalsnn ei navn 
END PROC s'ut prog'amalonitiel (suorutmen) 
CALL pioflram subtu linens navrv svarer til GOTO. 
EXEC subrutinens navn svaier til OOSUB. 
LOCAL variaw?! i.vanabel2 knylter bestemt vfl- 
rtabei III bestemt tutme 

GLOBAL genmdsaMIfl' de gamia vasrdrar i vanaoier- 

na. 

ON ERROR:GOTOliniefivi5le|lsa . 

OUTafslullet ON ERROR 

NO ERROR gentndsaiiei C M egen rejlltndirtg 

Lyd 

VOL n n = 5lyiko0 l5 
WAVEntemme numtner. b-nasrt ta> 
ENVELOPEiiiemme nr. altack, decay, sussain, le- 
lese 

MUSICr.lemmenr. -rnusikslrengrfel- 

PLAY n n = 0 sluk lot musik*en n = l (a>nd muslkken 



AllQBsnlng 

PENX vaiiabel = PENX atEaner lyspens *-kbOfdi- 
nal 

PENY varla&el a PENV som oventoi men y 
POT varietal = POT(O) oi (1) paddieallssning 
JOY tfarlabei - JOY attaser toystick. 



470 


136 


1 280 


194 


1210 


1-H 


}??f\ 




500 


228 


1238 


127 


1 740 


64 


1250 


108 


530 


231 


1260 


197 


1278 


160 


1280 


58 


500 


38 


1230 


13 


1300 


73 


13)0 


52 


590 


232 


1320 


708 


1330 


63 


t340 


213 


620 


228 


1350 


73 


1360 


1 10 


1370 


248 


650 


183 


1380 


183 


1390 


193 


1400 


94 


680 


■:V" 


1405 


187 


1410 


224 


1420 


73 


710 


60 


1430 


232 


1440 


209 


1450 


152 


740 


66 


1 460 


53 


1470 


30 


1480 


106 


770 


92 


1490 


166 


1510 


123 


1520 


155 


800 


203 


1530 


19 


1540 


209 


1550 


152 


830 


68 


1560 


6 


1578 


1 12 


1580 


169 


860 


175 


1598 


144 


1600 


144 


1610 


144 


890 


69 


1620 


144 


1630 


144 


1648 


144 


920 


75 


1650 


144 


1669 


144 


1670 


28 


950 


95 


1680 


28 


1690 


28 


1700 


28 


980 


49 


1710 


29 


1720 


28 


3730 


244 


1010 


115 


1 740 


244 


1->S0 


284 


1760 


164 


1040 


57 


L770 


164 


1780 


204 


1790 


244 


1070 


33 


1800 


3 


1910 


85 


1820 


33 


1100 


14 


1838 


160 


18-10 


78 


1850 


152 


1 130 


181 


i860 


231 


1870 


143 


18H0 


6 


1160 


114 


1699 


57 


1900 


218 


1910 


241 


1 190 


98 


1923 


41 


1930 


1 00 
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GUFFER FOR COMMODORE 64 



nUFFER x»* 
BJftRNf V. JENSEN 



100 RE/1 m 
flF: 

300 GOT 03000 

500 ^*y«CYj;PGKEy i fi »Y 
5 1 0 GOSUB8F10 I [ r PEEKC U » 30 IfiND 1 THEN2000 
520 K-PEEKC.IS3; IFK=255THENTJX=0:F=248- 
530 JFNOlKnND8THENQX=4:F=24& 
MB II NCJlKnNI>4rHl r NTJX---4:f =242 
550 lf*C =2§3gWC=2!5'ITHtMDCW 
560 X . x * PX: PDKEU . X: IFXAN04 THENPOKEG .F 
570 iFNOrXflNTWHFNPOKER.FM 
580 IFNOfPEEKtUH31 JANDl rHFN510 
590 X-X»(X OX VPOK£U.X:(3OrO510 
600 X-;<v.(XT:KUKEU>X 

6!0 GDSUB800: [ FPEEK f U I 38 1ANT1 t THEN2000 

620 K fPeeKC JS I: U-K-?SSTllFNnv : 0:r=248 

G 30 ] r NO I K ONI 1 2 1 HE NDY =1 : F ~24G 

640 IFNOfKAHOI THE NDY =-4 : F =744 

650 IFK--24^ORK=251THFN500 

6B0 Y-Y»DY:POKEU+l.V: IFYAND4THENPOKEG ,F+ 

Egg UNUlrWlHT.lFNPnKrG.F 

680 ]i finirLLKrvi.3) jriNLiirntNijio 
R90 Y-YXfY-0Y>:P6KLUi 1 ,v:guIUG10 
B00 S*5*l:ll S>17T^Efte=l 

8 1 0 ONSiio inn™ .qfjr ,67a .080 .890 ,900 ,910,9 

20 .930 . 11 0 . 958 . 900 , 970 , 960 . 390 , 1 y00 
670 WMNrCRflPC 0 5*501: If UM4 FHENRE TURN 
B21 nNUIRUOfl?'! ,820,828,830 

822 1) PEEKCU+21 WND8THENRETURN 
8-23 POKEU>?1 ,PEtKfV»2l )--8: RETURN 

824 irp[. (;K( M-»2'l JflNUlBTnt NRF.:rURN 

825 POKFU>21 .PEEKf Ut21 U 16: RETURN 

826 IFPEEKfU+71 1WD32THENRE I'URN 
82? PCJKLy ^i »PEEKt0f21 1+32: RETURN 
828 IEPEXKfU+71 10NDG4 1 HfNRE TURN 

823 P0K£Ot : 2*l .PEEK f U » 2 1 ]t-6i: RETURN 
B30 II PfcEK[U<21 MN0I28THENRETURN 
B3I POKEIM?! .PfctKlU+21 H !28:RETURN 

B50 C -SGNTXm(X )-X?*-C.O 3 : j» D'SGNC YXf Y )-Yx(B ) 

3: RETURN 

860 If IF i IHFNS=« 

86 1 RETURN 

870 I* ftiCfCMIILIIPE I URN 

871 0 n'C:Pl.)k( <J--? r zxtA}:RFfURN 
880 9=6: ICC <>0ORB-»D<0THEHRETURN 

681 D titU: FUKLU r3 . Y:<[ 8 ): RETURN 
830 JFO-L >9URO - C <0URC =0TH£NR£ TURN 
331 P --C:POKEU*2,Xsif ft3:S=6:PF TURN 
900 If t*-D>?npB- rxFlIHENRETURN 

90! B=B-D:POKEU+3.Yx(Bl:RETURN 
910 IE 1 I <f 3QRT J >T3*-150TI»ENRF,rtJRN 
91 1 irPEEKCU<40 3=24?rHENPaKEU*40.0 

912 IEPEEKtU(«in=242THEHP0K£U*-11 .0 

913 RETURN 

920 IF T I < r 3 t l50ORTI >E3*300THENRErURN 

921 POKEUf4fl.ri:POKEU-4t .14: TF =0; RETURN 
330 L--SGN£X»rX 1-Xk( .11 ); PI =SGN( Y*f Y >YXf Q ] 

1: RE THRU 
910 II rr =1 IHI.N5M2 
941 RETURN 

350 lEfJilfl<0IIIENREIURN 

931 Q-Q ►M: POKTU* 5 .Y"<C Q ]: RETURN 

960 S-M: II f1'>0fJRJ»L<0THENRErURN 

961 ) mi :pO.Kl '»1 .X*( J 3: RETURN 

970 Il fJ- IO70R0 -M <0OPW -0THENRETURN 

97 1 W-O- M:PUKEU»5.Y*CQ):S = 14:RHTURN 
9B0 IF I--09URJ -L<BTHFHf?E TURN 

981 J - J l:PUKEU>4.xm J 1: RETURN 

390 IETOTlORCPEEKCU^l 1AND2 ITMFNRETURN 

991 fi -0: B -3 ; POKEU+2 .30: POKEU+3 . 1 28 

99? POKEU+21 .PEEKCU+21 1+zrRETURN 

I00P I r I 2 > T I OR C PE EK I U + 7 1 W1ND4 3THENRETURN 

100! Q-J: l-9:POkEU.* t 24fi:PaKEUf-5.l29 

1002 F'OKCU-71 .PEEKClM-21 1 + 4 ! RETURN 

1500 P*^SlR5fP0):PL=l.ENCPi)-l 



1510 P«INTTnBf3B-PL)'lERS^UauN»3KRUS/0 
NirLOG(J^63'*:RIGHTl(P*.PL ): THOME! : 
: RETURN 

2008 I =8:P PEEKf Ui301; 1FP>7THEN7I!50 

2010 IV Tf aUnrn^040 

2020 !pr=3nRP 5ORr-?THEN^00 

2030 PfJKFLU 'tPl.fl: SOID500 

2R10 lr P<>^lMFN2080 

2050 POKFU^l ,Pfe6lCtU+2l 1 1 = 1 1 .400 
2060 PUKE U» 41 .14:flr0 5 B=3:GOTO22F»0 
2080 irPO5TMFN?120 

2090 PnK'EiJi?! .PEEKC'.'r21 r2 = n+400 

210«-POKF'J.10.5:fj I=9:GDTO2200 

2120 ir-PO7THrNPl3KFUh30.0:»iOTO500 

2130 PO=POi2S:POKFO+2l ,PEEK(y»21 >-6 

2MB 11 'fiett: I2=TJ.400:GOIO2200 

2|S0 IFrP- J ^ Npr rHIWQKEU + 21 .PEEKCU+21 )- 

7168 I =I»2; IF 1 <?0BTHEN2150 
?180 FD<n.',:nn-=!iB1500:POKEU+30.0:T3=TI + 
200MI I 

7l'.p I UK[ 1 '''10.2: POKEU * 4 1 # 2;6aTO500 
2200 TFPrFKCUt2l 3-1THF,NPOKEU+2l.249-SS 
2210 PO Pn.75:GnSliBl500:TF : 0;PnKEUt30,0: 

BOTf)S00 

2500 PRlNTTnpf33 VI CRSR/nOUNx 1 1 JE BLKK LO 
HO,!! ) [ I OGO> I *q ]f LOGOFF J( CRSR/DOWN U 
f RSP,-: EI I »6K RU5XJFF I [ LOGD/KK I-OGO/ 

BJSI HIT MI.KKRtfS.ONULOGOxKJCCRSRynOUNJEC 

PSP.-IU I-(j1IIUGU 1J( RUS.<JFF]n.OOOrI*4 3CR 

V5/ONJI I. UfiU/'j 1 " ; 

2SiB i»-pn>pinrHENnfl=pn 

2520 FORI I IH2500: NEXT 

700* PRINT UHSRxiLTI*e)lC«SRyUP*2HLbQ0 
/51WIL DU( CR^R^UOUlNTt CRSR.-I.EF fxfi j 
C CRSft^OfJuN] 1 CRSR^LIT I "COHERE ? ' 
7til0 IFPEFKf JS3--2330RPEEK( 197 1-34TMEN330 

0 

2025 I'FPEEKI 1971O39THEN2610 
2630 P0KFVM21 ,0: F'P | NT C CLP/4I0P1ET " ; C|IR*t 9 
l:POKF198,0rFNn 

3000 IFPELKri5UPttKri7 1flNUPEEKt46)rPEEK 

C4B)TI«N3020 
3010 POKEIS.PEEKC 1 74 ): P0KE46 .PEEKC 175 ]: C 

LR 

3020 U * 53248: (3 =2040 : POK EU f 33 . 2 : POKFU +32 . 
12 

3025 CUi= CCtR^lai1EKCRSR/TlflUN*I2J 

tLfl60>3] 

3030 J S 35632 J: TORI =0TO7:PRJNTFL* 

3040 IF IflNDlTllENPRINTL'Lt: 1 X UUFFER X x 



3050 
3060 
3070 



3880 
3085 
3090 
3100 
3110 
3120 
3130 
3M8 
3150 
3160 
3170 
3180 
3190 
3700 
3300 

3310 
33,20 
3330 



FOKN;BTO62:REAOO:POKEC240M )*64tN.D 
:NEXTN.I 

PR I NTCL*: FORI =0TO62: REftDD : POKE 1 5872 

► I ,d 

P0KEl593S + r .D:NEXT:PRINTCHR*U42)CH 
RtCB) 

PR IN1LL 1 ; CONTROL PORT r 
FORI ; 0TO1 : EURN-0TO62 
RERDO: POKEC250* J 3*64+N ,D: NEXT N.J 
POKEG-i-1 ,250:POKEG + 2.258 
FORI=F»*3TOG^7:POKEI .251:NEXT 
DIM XXC255D,YXC232 ),U0U3) 
0=0: FORI =30TO74RSTEP24 
X^rD)-I:rORN = I-12TOI»8.STEP4 
XXCN1 = I:NEXT:D-DM:NEXT 
0=0: FORI =56T0224S1LP24 
YXCD J = I : FORN = I - 1 2T01 »8S TEP4 
YXCN 1=1: NEXT: 0=D+l: NEXT 
FORI M TO! 3:REnDUflC I 1:NEXT 
FORI ; 1 '06 : RLflDLQC I 3: NEXT 
POKEU - 1 7 , PFEK f U » 1 7 3AN0239 : PR I N T " C CL 
R^» lOrtE 1 ' 

TORI -0TO24:FORN=31 TU39 
PnKE55236+N*40*I .1? 
PUKE10?4»N+40kI ,224:NLXr N.I 



1310 PP\H\ l llOnE3[GRN3tSHlFT/Otl-OGO/E*5 
It SI 'If T/'HUffiCML*! 1 -U SHIP f/-* 31 lOGO 
/E*S H SHIFT/* ULCJGU^E»5.U SHlFT/OtC 
R5R/R ] Gi IT* 1 1 L I .OBO /C 1PCI I M IT GRN ] 
1150 TRIN7 I UIGO/U IlLOGO/71 CSW1FT/R 
jilt [GRtOUOGQ/ 

TRIHr T I UGU/W3UQGO/73 t SHIFT/B 

*33 tGRNULOGO/ 
03[ CRSR/RI GHT *1 If LOGO/CH LOGO/0 ir LO 
GO/l*3 3tL[J(S(_l/r H GRMJ 

3370 PRINT I LLl(50.-LJULGliO/7.l [LOGO 

yflU^HiFr/irssjn ggc/SI cshif 

T/R 1 t TsRHlf LOGO/Q H CRSR/RIGHT*3 

1 [ I 0G0/6 3 t RUS/ON JC 1.06 0/K 1 t RUS/OFF 3 t LO 
GO/KHGRH] 

3380 PR1NI T ( OGO/Wlt 1060/71 tSHfFT/B*23 
tV,H[FT/SPnr.Rr5]f SHIF T/831 SHIFT 

/spnce^ir Snif i/BU shift /space *23i s 

f»tn/BJ£SHrFT/SPACE*2 3f >HIF f/BltSMIFT /SP 
Mir *2 K GRN II LOGO/CJir r;RSR/RJGHT*3H LOGO/6 
U LOGO/CHRU^nHH LOGO/1 *33T RUS/OFF JC LOG 
O/UJt GRN 3 

3390 PRINT' C I 0G0/U3C LOGQ/73 f SHIFT/B KS 

iiif r.'srm;E»5][SHiFr/0]t ^HlFT/SPftCE* 

531 SHITT/EHf SHIF T/SPACE*5 II SHIFT/B 1 
tSHin/^PnCE*2 3CSHIFr/B]t5HIFT/SPFlCEx2K 
SHIFT/BIT SIM I I,/SPrtCE*?Jl GRNltt.OGO/Ql 
3100 PRINT rLOGLVW3lLDGO/7) CI.QG0/2KSH 

\FT/T.r^U LfJGO/W} I LOGO-23I SHIFT 

/C«51l I OGO/W ) CSHIf r/C] [ GRNH 
t OSO/UJ 

3410 PRINT I LOGO /UK LOGO/7 J * SHIP 

T/B31 SHIF r/SPf»rE*7Jt SHlFT/63r SHIFT/- 
5P0CE i9 K ^H I F T /8 1 C 5H 1 1'l /SPflrEx5 .H Sl« 
IF T.flJt SUIT T/SPflCE*23L GRN II LOGO/QJ 
3*120 PRINT I LOGD/VH LOGO/73 I SH IF 

T/f33C SHI F T /$Pn C E * 2 3 1 SH 1 1 T /B 3 1 ' SH I F T ✓ 
SPflrEre3( SHIF T/B3f SHJFT/SPACEi'ilt SH 
IFT/Blf SHIFT/SPACF*?3T GRN 31 LOGO/QJ 
3-133 PFMN1 t SHIFT/. 31 LOGO/7 HSHIFT/C*53 

TSHIFT/-B3 tLOGO/-ZH SHIFT/i:*5JtL0. 
GO/ST t LOGO/ZK SHlFT/tx53f LOG0/X3 
CGRt-iULOGn/fll. 
- 3118 PRTtil t LUGUxWlCLOGn/73 C^HIF 
l/BU SHIK l/SP^:e«83CSHIFT/fl3. 
t.GRN It I flGO/TH 
3450 PPINI fl UGtVU II L0GO/7K SHIFT/SPACE* 
8)1 Slirr I /Sir SHU T/SPACF*a3[ SIUF T/B3 
t S»UF T/ScnCE*l 1 31 GRN IT LOGO/0 3f CRSR/' 
RIGIH«2)t LOGO/53C RUS/0N3f LOGO/l *63f GRN 1 
3100 PR HIT UOGO^H LOGrWJ ILOGO/ASlSH 
If r/C«51C I.0B0/E3C SIUFT/C*5ir I DGO/S) 
1 I t)UO/U M SHIFT /I'll 31 GRN H SHI T T/» 
Jt CRSR/RIGHTJPJILOGO/GJGUPFERt GRN3 
1470 PR INI n LJGO/WIl LOGO/7 J LSHJFT/BKS 
H I F I/SPflCE* 1 1 3t SHIFT/tJ3t SHIFT/SPACE 
»2TtSHlFI./B)[SHlFT/SPnCE«llKGRN]lU 
0G0/^)3r CRSR/RIGHFx23t LOGO/5 H LOGO/I «63l. G 
RN3 

3480 PRINT (LOGOyLIJt LOGO/7 J CSHIFT/BTl S 
HIFT/^PnCf HI U SHIFT/BJtSHIFT/SPftCE 
«2 If SHIFT /©H SHIFT /SP*CE*113£GRN3tL 

OGO/Q] 

3490 PRINT I LOG0x*W][ LOGO/7 3 CSHIFT/B3 

[LOGO/031 SHirT/C*5] [ SHIF T/8JC SHI 
FT/SPnCE*23T SHIT T /Bl( SHIFT /SPflCE*3 J 

r SHIF l/C*5 3f LOGO/S 3 C GRN 1 [ L0GO/Q 1 

3300 PRINT fLOGO/U3CI.OGO/71 tSHIFT/QjCS 
HIT T/SPo<"£*23t SHIFT/B If SHIFT/SPACE* 
Bit SHIFT /BH SHlFT/^PrtCE.x2)tSHlFTye3 

t SH 1 F T ySPACF* 9 3 f SH I F T /B 1 1 SHlFT/SPflCE*x21[ 

CRN 3 1 LOGO/tJT 

351 B PRINT f L OGO/W 3 C LOGO/73 rSHIFr/B.3tS 
HirT/SPf>CE*23rSHlFT/S3rSHIF 1/SPF1CE* 
8 IE "HII 1 /BUSHlM/SPnCE*2H SHIFT/B] 

tSHIFT./SPOi.f * 0 H SHIFT/SIC SHIFT/SPACE*23C 

GRN It I 060/03 



3520 PRINT'ILOGO/w3lLaGO/73 CSHIFT/BJI 
HI FT/SPACE *23t SHIF T /B Jt SHIFT/SPACE* 
23T LOGO/A HSH I FT/C*5J[LOGO/U3 t LOG 

0/2HSHIF I /C«5 3 I SH 1FT/H3. C GRN H LOGO/ 

03 

3530 PRIHI C LOGO/W3tLOGOy73 CSHIFT/B3CS 
1 1 1 F I /SPflC L»23C SH IFT /Bit SHIFT /SPflCEi 
2 3tSH[rT/SKSHIFT/SPACFx53fSHIFT/BT 

C SHIF T/SFfVT*U 1[ SHIFT/631 SHIFT/SP^GE*2.1 

I. GRN It LOGO/01 

3^10 PRINT rLOGO/UlltlOGO/?] t9HIFT/3*2) 
[ SHIFI/SPflCE*2KSHIFT/B1[SHIFT>SP 
ACE3«53C SHIFT/831 SHIFT/SPACF*! 1 K SHI 
T T/B3 f GKN3L LOGO/QIC CRSR/RIGHT"3U LOGO/ 
61<nn^xf GRN 3 

3550 PR IN t rLORO/UULOf-il v'l I SHIFT/B 

1 I \ 0G0/£ II SHIFT/C*tl3C-I.O 

tGPr-ln t mo A3) 

355R PR I N I f 1. 1 IRQ 'U M 1 0G0/7 3 t SH IF T/B 

«ZJ £ GRN3[ LOGO 

/O 1 1 I RSR/R I GH r * 3 3 1 LOGO/6 3 C LOGO/03 C L 

OGO/ 1 * 3 3 [ LOGO/F J t GRN 1 

357B PRIHI ILOGO/W3LLOGO/73 T SHIFT/B 

If SHIFT/Srni;E»53T SH 1FT/B3 

I f.RM M LUGO/Q U CRSR/RIGHrK33t 
LOGOrOtr R'JS/ON 11 LOG0/-K] [ ROS/OFF 1C LOGO 
/K 3 [ GRN'J _ 
3380 PRINT I SH ITT /*3f LOGO/R*53t SHIFT/+3t 
LOSO/R*53C SHIFTX*3f LOGO/R* \ 73t SHIFT 
/t U CRSR,i?IGHlK3UL0G0/'e]t LOGO/Clf R 
US/OM It LOGO/I *3 If RUS/OFF ItLOGO/U Jt HOMEI " 

35$0 PO=0:GOSUB 1500: FTl-lirt: PRINT XCRSR/Oa 
UU*193" 

3600 GO^JB1500:PO^0:N-RNDt -TI3: fl*= 0000 
00 

3610 F0R1M IO13:N-RNOt0 3: I T N>0 .5THEN3670 

3620 rORN=Ufl(I ITOUAf I 3+3 

3630 irPEFKf N 3 1 15THENP0KEM .6F> : GO FO3660 

3640 K i TFK( N l-ll 3THENP0KEH .109: GOTD3660 

3650 P0KEN.32 

366P1 NF X I 

3670 HEX I :rflRI =1 T06 

3R80 K^NOCB): IFN>0.5IHEN3740 

3690 f ORIM M i )TOL0f I )• I20STEP40 

3700 ]FPFr<(Nl^l5THENPOKEN.l25:GOTO3730 

3710 IFPEF l KlNJM07THEHPOKEN,I09:GOTO3730 

3720 P0KEN.32 

3730 NrXI 

32-10 HEX! 

3750 F=7lB:nTP:Fi = 3:J =9: Q-3: XU38; Yn28:S 
=0: Tr-0 

3760 POKEU +?3 .8: POKE U+23 .0: POKEUt 28 , 255; 
POKEU .x 

3778 POKELH I . ft POKEU >2 . 30: P0KEUt3 , 1 28: PO 

KEU+4 .246 

370B POKE Ui-5.I28:POKEG.F:POKEU*40.5:POX 
EU+4I ,H 

3790 POKEU M? .1 : P0KEU-H13 .5 ! P0KF.U^4 .3*. PO 
KEUt45. 10 

3800 POkEUM6.U:P0KF^39.S:P0KEU^37.B:P 

0KEU+38.J 
3810 Sxf 03=100:FORI *l f05 
3820 N^INTCRNDl 0 3*8 3: IFN=3THEN3820 
3830 P = INT(RNOf0 3*10 3:SxfI )^P' 10*N:2=0 
3810 IFS-/.C I 3<SXCZ 3»-2ftNOSxC I 3>Sx(Z 3-2THEN 

3820 

385B IFS«( I 3<5*/.t2 3-8rtNDSHC 1 3>Sx(Z 3-12THE 
N3820 

3B60 IFS*( I J<S«l2)»12ftNDSxf H>S»CZ3t8THE 
N382B 

38^0 Z=Z+i: IF£<ITHEN3818 

38B0 POKEUt1^2xI .X"<CP 3: POKEV'5+2*! ,V>tCNJ 
3690 NEXT J PQKEU *21 ,255: POKEU+30.0sPaKEU+ 
31 .0 

390B P0KEUTI7,PE£KCL>M?)0RIB 
3910 IFPEEKCJS3=255THEN3910 
3920 GOTO500 

5010 OPTn0.1G8.0.0. 16B, 0.10. 154. 128.10.1 
5^.128.47,170. IDS. 12. 179. 160, 42. 170 



5011 0010160.47,170,160.170.179.48.170.1 
29.48.170.140.192.170.140.192.42.17 
0 

50 1 ? DO I ft 1 68 . i ? . | 70 . 1 60 . 12 . 1 70 . 1 60 .42 . ! 7 
R. 160. 10. 1 7R. 1 28. 10 J 70. 178. B. 169.0 

5013 DnrOB. 1 68. B. 0.0. 0.0. 170. 126. 0.1 70.1 
7B.10.1S5. 0.10. 155.3.42.172.0,42. 17 

50 M 00108.42. 176,0.42.176.0.170.128,0.1 
70,128.0. 170.128.0.170. 128 ,0.42.176 

5015 DA TAB. 47. 176. 0.42. 172. 0.42. 172. 0.10 
,171 .0. 10. 171 .0.0,170. 128.0. 170,178 

5016 OOTfl.0. p. 0.2. 160.0.2. 168.0.12.106,0. 
42.106.0,170.170.178.170.170,129.17 

a 

501 ? OOTrti 70. 120.170. 170, 128,204.234, 160 
.704 .734 .160.51 ,42,160.51 .42.160. 17 

a 

5018 Dfrmi7B.l28.l70. 170. 178, 17fl.17B.128 
.170 ,1/8. 128.42. 178, 0,4 Z, 170,0,2, IB 

0 

5019 DArrtO. 7. 160. 8, 0,0, 0,42, 160 .0,42. 168 
.0.14.106,0.14.106.0.3.170.128.3. 12 

■5028 0016128.8.234.128.0.234. 128.0,47. 16 
0.0.47. 160 .0.4? ,160. 0,42. 160.0.734 

502 1 Ofi Tf) 1 28 .0 , 23-1 . 1 78 . 3 .VI 78 . 1 28 . 3 . 1 78 . 1 

?fi. 14,1 70. 0.14. 170.0. 42. 160. 0,47. 16 

0 

5022 (JOTflB. 0.0. 0.1 0.207, 0.10. 202. 0.4?. 59 
, 128 .42 .58, 120.42 .202 , 1 28 ,42 .28? . 12 

8 

5073 r^ilO 170. 58. 160, I 70. 58.160.^.202,1 
60. 1 54. J07. ! 60. 170.1 70. X68.1 70.178 

5024 00 m 160. 42, 1 70, 129, 42. 170, 128. 42. 17 
0.128.4^.170.1 28. ie. 170.0.10,170,0 

3025 nOTrtfl. 1(50. 0.0. 160.0.0.0.0.0.0.0,0,8 
-8.1 70. 0.3^. 1 78,0.32. 178. a. 224 .176 

5026 D^Tne. 224. 1 72. 3, 168. 172.3.160.135,1 
4 .16B.155.1 «,l 60. 170.170.160.170. 17 
0 

5027 PO m 1 68 . 42 . 1 70 . 1 28 . 42 . 1 70 . 1 28 . 42 . 1 7 
0.129.42.170.128. 10.170.0.18.170,0 

58?8 on i ne, lea.©.©. 160.0.0.0.0.0.160.0.0 

.160,0.10.170,0,10,170,0,42.170,128 

5029 rjnrn42.170. 128.42.170. 128.42. 170, 12 
8.178,170.160.170.170.160,151.202,1 
60 

5030 C?nlfll54 ,20?, 160. 178. 58, 160. 170. 58.1 
60.42. 702 . 1 28 . 47 , 282 . 1 28 .42 .58 . 1 28 

5031 DflTfH?. 3B. 128. 10.702.0.10.702.0.0.8 
. 0. 0. 1 68. 0.0. 168. 0,10. 1.70. 0.10.170 

5032 Dfrrfl0.47.p'0.17W. 47. 170.128.47.170. 
1 28 .42 , 170 . 1 28 . 1 78 . 1 70 . 1 60 , 170 , 1 70 

5033 DfHfl 160. 15^. 14 .160.155.14.160.172,3 
. I 60 . 1 72 . 3 . 1 60 . 1 76 . 0 . 224 . 1 76 . 0 .224 

5034 POTO 128.0. 37. 128. B. 32. 0.0. 0.0. 0.0.0 
.0.0 

5040 DATftB. 160. 0.2. 163.0.10.170,0,10.170 
.0.42.170.178.38.169.128,38.169.178 

5041 PATn42. 178. 128. 170. 170. 160. 170. 170. 
1P0.174.I71 .160.1155.245.160.37.85.1 
20 

504 2 11*1045.87. 178.41 .246.129.42.170,128 
.l'0.1^0.8.1 0.1 70,0.0. 160.8.0.160.0. 
8.B 

5050 Di9Tfl0 . ? . 1 6« . 0 . 9 , 1 66 , 0 . 43 . 94 . 1 28 . 4 7 , 
255, l?8. 45. 7-»7. 128, 45. 247. 128. -I?, 25 

5051 DfHO 1 78, 43. 174,128.42,170,1 28. 42 ,.17 
8.128.10.250.0.11 .94.0.9.746.0.11 .1 

5057 DfWA8. 42. 170.128.42,170.129.162.8.1 
60,167,9,160.65.4 .16.65.4.16,0.0.0 

5068 DnrnR.R.B.a.B.B.B .0.0.0.0,0,0. i 6.0. 

3,48,0,1 ,169,0,2.171 .0.14,168.0.6.1 

66 

506! UnrnR.2, 163. 0.2. 171 .0,14.158.0.6.16 
4 .0.0.204 ,0.0.64 .0.0 .0.0.0.0.8.0.0 



5100 UOT80.0.0 .0.0.0.0. 1156. 1267.1282. 13 
93.1405.1510.1516.1525.1630,1643 

511 0 UOIOK'56. 1762. 1892. 1273. 1 291 .1507.1 
522.1750.1771 
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'RUN' - NA OGSA NORSK 



A/a" btir 'RUN ' ogsS norsk. Fra og 
med deniw utgaven kommer Com- 
puterworld Norge til a bidra med 
bade redaksjonelt stoff, program- 
If stinger og annonser som f/7 inter- 
essere Commodore-brukere — / 
Norge save/ som i Danmark. 

Tekst: Toralv Ostvang 
Foto: Nils M. Kjus 

Som navnet entyder er Computer- 
world Norge med I em av den samme 
verdensomspennende Computer- 
world-familien som 'RUN'-redaksjo- 
nen I Danmark I Norge utgir Compu- 
terworld Ira far tre publikasjoner: 
Den 14-daglige nyhetsavisen 'Com- 
puterworld Norge', som forst og 
fremsl retter seg mot den profesjo- 
nelle del av databransjen, manad- 
stidsskriftet 'Mikrodata', som er Nor- 
ges starste iirlsskrilt pa hobbydata- 
og skoledata-sektoren, og kvartais- 
[idssknltet 'PC World Norge'. et blad 
for de-stadig flere av oss som begyn- 
ner 5 ta i bruk PC'er uten a ha sasrlig 
mye EDB-skolermg p5 forhand. 

Stor CBM interesse 

Og nS kommer altsa 'RUN' som et 
fmt tllskudd til Computerworld Nor- 
ges bladflora. A I stoff om Com- 



modore-maskmene — og saerlig VIC 
20 og CBM 64 - er ettertraktet ogsa" 
i Norga, er det ingen tvil gm. Leser- 
undersakelser har for eksempel vist 
at over halvparten av dem som leser 
'Mikrodata', eier en VIC 20 eller 
CBM 64 Med 'RUN'-samarbeidet vil 
'Mikrodaia's redaksjon na fcunne gi 
disse leserne^tskillig mye mer Com- 
modore-stoff ehr\ ttdligere. 

Og vi sL9r to fluer t ett smekk 
Samtidig vil vi kunne fngjore endel 
Comrnodore-stofl fra 'Mikrodata' 09 
dermed gjore 'Mikrodata' mer at- 
traktivt ogsS for lesere som er inter- 
essert i andre daiamaskmer, Vi mS 
nemlig Innramme at vi har tfltt litt 
kjeft av og til fra ikke-Cornrnodore- 
brukere som synes at 'Mikrodata' i 
for stor grad er et Commodore-biad. 
Det nye dansk-norske 'RUN' vil gjare 
slutt pa denne kritikken. 



'RUN' i Norge 

Commodore-daiamaskmene er altsa 
i skuddet I Norge som i sa mange an- 
dre land Ktar markedslader pa hjern- 
medata-sektoren i Norge. og CBM 
64 har ogsa vunnet et visst innpass 1 
norsk skole og i mmdre bedrifter. 
Som sagt har 'Mikrodata* t lang ttd 
gitt Commodore-vennene en masse 




stoM om Commodore-daiamaskiner, 
-programmer 09 -litteratur. Den 
fremste norske bidragsyteren i 'RUN' 
vil vaere 'Mikrodata's tekniske redak- 
tar Eirik Gulbrandson (171. Sin urtge 
alder til iross har Eintc vaert tilknyuet 
'Mikrodata' i lang tid, og det er spe- 
sielt Commodore-maskinene nan har 
jobbet med Ellers vil han blant leser- 
ne av 'Mikrodata' og det tidligere 
spesialtidsskriftet 'Program Spesial' 
vaere kjent som hovedansvarlig for 
godkjenningen av programlisnnger. 

El annet navn 'RUN'-leserne n3 vil 
stifte hyppig bekjentskap med, er Tor 
Engebakken 1291, som har overlort 
sin 'Commodore Corner '-spalte fra 
'Mikrodata' til 'RUN'. Tor jobber for 
'RUN' pa frilans-basis — til daglig er 
han EDB-student ved Dikstnktsheg- 
skolen i Halden i den serosihge del 
av Norge 

Ansvarlig for 3 sy sammen de 
norske sidene 1 'RUN' vil vasre 'Mi- 
krodata's reriaktor Toralv Sstvang 
C32). mens Computerworld Norges 
emtnente lay out-medarb eider Yvon- 
ne Dengin (23) skal serge for at de 
norske sidene blir appelittvekkende 
lesning. De fieste bildene vil 'Mi- 
krodata's fasts frilans-fotograf Mils 
Magne Kjus (381 st5 for 



Vi bruker CBM 64 

Av interesse for CBM 64-brukere kan 
det kanskje vaare a fa vite at den 
norske 'RUN'-redakspnen tangifra 
bare bruker sine Comrnodore-ma- 
skiner til 3 teste innsendie spill og 
den slags. CBM 64 brukes faktisk og- 
sS 1 produksjonen av bade 'Mikroda- 
13' og 'RUN' . Hovedsakhg er del den 
norske versjonen av tekstbehand- 
ngsprogrammel Vizavvnte som be- 
nyttes. men ogsa" innsendte Easy- 



Her er beviset pa" at ogsa* en CBM 64 
kan benyttes til tidsskfift-produksjon. 
En tekstft'J er i ferd rned 3 bit osierfm 
fra Vizawriie pS CBM 64 til en Pied 
Piper CP/M-datamask/n 
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script-ttler blir tatt imot, omgjort ttl 
Vizawrite-filer og deretter overfort til 
en CP/M-rnaskm via en sflkall Inter- 
pod. SS blir tekstfilene sendt til en 
annen CP'M-maskin som kan lagre 
dem pfl 8-tommars disketter, som 
igjen sendes Til trykkenet. Her blir 
teksifilene overfert pfi nytt, n3 til 
Norsk Datas avisprodukjonssysiem, 
som gir oss ferdig sats klar tfl S kle- 
bes opp pa 'RUN'-sidene. 

Vi skal medgi at aile overfpnngene 



tar htt rnye tid, men pa" den andre si- 
den slipper vi 3 taste om igjen artikler 
SOm allerede et terdtg mntastet pfl et 
teksibehandlingsanlegg 

Noe av del morsomsie er forres- 
ten 3 fortelle profesjonelle datafolk 
om denne prosessen. De har \o som 
oftest lllen sans for hobbydata og 
btllige datamaskiner og inntar gjerne 
en nedlatende holdning tit folk sorn 
siar at ogsa" slike datamaskiner kan 
brukes til noe nytttg. Men vi har altsfl 



Qen norske 'RUN'-redaksionen, fra 
venstre lay oui-enedarbeider Yvonne 
Detjgm, redakt&r Toralv Qstvang og 
teknisk redakrer Eirik Gulbrandsen. 



beviset for ai en 3000-kroners dala- 
maskin her kan gjere samme jobb 
som en Personal Computer til 
30000 
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COMMODORE CORNER 



NS er Commodore Comer pa p/ass i 
'RUN', Spa/ten er tidligere blitt en 
av de mest populaere i norske Mi- 
krodata, men den har jo sin naturli- 
ge p/ass i et Commodore-blad som 
'RUN'. Vi onsker bade sporsmal og 
tips fra leserne. Alle sporsm&t, tips 
og rutiner kan du sende direkte til: 
Tor Engebakken, Damhauggt. 30, 
1750 HALDEN, Norge. 

Rundt om i de tusen COMMODO- 
RE-hjem kryr det av trix og lips, og vi 
har vaert s3 hetdige 5 fa noen av dem 
ned i postkassa Vi kasier oss ut i det 
rned ferste brev. 

Fra Per Lekre i Universitetstorlager 
har vi moltatt felgende tfps: 

Viser til Commodore Corner i Ml- 
KRODA TA nr. 9 angSende bug i ope- 
rativsystemet nSr du SA VEr til disk. 
For & unnga bug 'en skal du bruke faf- 
gende format: 
SAVE"@0Pn0Gftm",8 

Med andre ord er O'en nodvendig 
for ikke a risikere 8 slette gamle filer 
Med hilsen 
Per Uakre 

Takk (or upset. Hvis dene siemmer. 
har du gjort mange frusirerte 
1541-eiere en stor tjeneste. 

TH COMMODORE CORNER 

Jeg er en gun pa 14 Sr. ogjeg bar en 
COMMODORE 64 rned printer og 
kassenspi/fer. COMMODORE COR- 
NER synres jeg var fint, sS jeg sender 
dere to tips. 

Det f0rste Upset bruker du hvis du 
f. eks. vil skju/e noen SYS 'er eller PO- 
KE'er Her er en liten test 
Skriv inn denne finjen. 
10 POKE 53281. 0:REM 
Trykk INST/DEL-tasren en gang s/ik 
at det siste anfarselstegnet for- 
svmner. Deretter trykker du SHIFT 
iNST/DEL-tasten W ganger Sfipp 
opp SHJFT-rasten, og trykk INST/ 
DEL 16 ganger til. Det skal da kom- 
me fram W reverserte T'er tram pa 
skjermen, Etter dene skr/ver du 
f.eks KAN IKKE LfSTES. 

Prev na £ list programmer. 

Hv/s alt er riktig, skal du nS fa 
/ram. 

10 KAN IKKE USTES 

Programmet kan fremdeles RUN- 
'es som fer. 



Av Tor Engebakken 

(Problemet med en slik sperre er 
jo at linjen bare kan fjemes. Hvis 
denne lin|en er den larste i program- 
met diti kan du etter 3 ha skrevet den 
inn taste 

POKE2051 ,255:POKE2052,255. 

Linjenummeret vil n3 vaere forand- 
r&t til 65535. Pr0ver du na" 3 fjerne 
denne pa* vanhg mSte vil du nS 13 
SYNTAX ERROR til svar 

Spaltered. anm,) 

Hvis du ikke vil at noen skai liste 
programme! ditt kan du i begynnel- 
sen av programmet sette: 
10 REM 

Etter REM 'en taster du SHIFT L . 

NSr du na prover 3 liste program- 
met kommer det bare.' 
10 REM 

'SYNTAX ERROR 

READY. Hilsen 
Kjetil Knstransen 
jFff**^^^ Stauperveren 52 
/ ^^^^^^^^J 3745 TJ0ME 

Takk for tipsene Kjetil. 

Det er Here m3ter 3 surre med lt- 
stinger pa. Her felger noen eksemp- 
ler: 

Som utgangspunkl gSr vi ut fra at 
vi har fel gende som ferste linje I 
programmet: 
10 REM 

Ved 3 poke 2054 med lorskjellige 
tall kan vi na" fa" endel rnerkverdighe- 
ter til a skje. F eks/ 
5 = Resten listes i hvitt 
19 = Cursor home far listingen t>e- 
gynner. 

30 = Resten Itstes i gront 

31 = Resten listes iblfltt. 

Det er forsfividt ingen grunn til 5 
surre med listinger. Men av og til kan 
det en vanlig listing bli lut uoversikte- 
lig. (Ihvertfall hvis vi felger tipsene 
ovenforM Det vi da kunne enske er 
en mulighel til 3 flytte teksten litt ui 
mot heyre. Uheldigvis fjerner BASIC 
editoren til COMMODORE alle spacer 
i begynnelsen av en linje. Den enk- 
leste mSten 3 lure editoren pa er a 
skrive et kolon (:l som det farste teg- 
nei pa linjen. Deretter er det bare a 
sette inn s3 mange spacer som en 
vil Hvis vi av en eller annen grunn 



ikke liker dette xolonet, kan vi taste 
SHIFT/A eller SHIFT/S som fcrste 
tegn. 

Over til neste brev: 

Jeg Jurer pS om dere kunne ha et 
inn slag om SYS-koder. Spesielt lurer 
jeg p3 SYS-koder som maskinkode. 

Jeg onsker ogsa" er innslag om 
sprites. 

Hvordan man styrer spriten med 
joystick og tastatur 

Jeg vil ogsS vile mer om hvordan 
man lager sine egne spill. F.eks. Ad- 
venturespilf eller SPACE-spifl. 

Med hilsen 
Bjorn Heydal 
Skogveien 105 
1320 STABEKK 

NSr det gjetder det farste spersmalet 
ditt, tror jeg du blander sammen be- 
grepene. Vanligvis har BASIC-ope- 
rativsystemet kontroll over din COM- 
MODORE 64 NSrduskriversysxxxx 
(hvor xxxx er ei tall mellom 0 og 
65535) overlaler du konirollen til et 
maskinkodeDrogram som starter i 
xxxx. Med andre orri m3 du ha skre- 
vet et maskinkodeprogram. og vite 
hvor det starter tor du bruker denne 
kommandoen. 

Nedenfor felger et program som 
setter opp en sprite p3 skjermen, og 
du kan bevege den ved hjelp av en 
joystick. 

5 PRINT CHRS (147) : XI = 53248 
Yl = 53249 • REM X OG Y-POS 
AV SPRITE-Q- 
IC) POKE 2040 , 200 : REM 
SPRITE-0 LIGGER I BLOKK 200 
15 FOR I = 0 TO 62 : READ A: POKE 
64 * 200 + I , A : NEXT: REM LES 
F0RSTE SPRITE 

17 FOR I = 0 TO 62: READ A: POKE 

64 • 200 + 64 + I . A : NEXT REM 

LES ANDRE SPRITE 

30 POKE 53269 , 1 : REM SKRU PA 

SPRITE-0 

40 POKE XI , 100: POKEY1 , 100 : 
REM SETT SPRITE-0 PA SKJERMEN 
50 CO = 1 POKE 53287 , CO : 
REM FARGE PA SPRITE-0 . SKYTEK- 
NAPPEN FORANDRER FARGE 

98 J = 56320 REM JOYSTICK 
PORT 2 

99 REM PROGRAM FOR A LESE AV 
JOYSTICK 

100 JOY = PEEK ( J 1 AND PEEK ( J 



2S 



4 1}: REM TIL LAT BEGGE JOY- 
STICK 

1 10 X = PEEK i 53248 ) Y = PEEK 
I 53249 ) 

120 IF I JOY AND 1 I = OTHEN IF Y 
0 THEN POKE YlyY- j 
130 IF (JOY AND 2) - 0 THEN IF Y 
<255 THEN POKE Y1, Y+- I> 
140 IF ( JOY AND 4 ) - 0 THEN IF X 

0 THEN POKE XI , X - 1 : POKE 
2040,200 

150 IF ( JOY AND 8 I = OTHEN IF X 

<255 THEN POKE X1, Xt 1 POKE 
2040. 201 > 

160 IF ( JOY AND 16 ) = 0 THEN 
CO = ( CO + 11 AND 15 POKE 
53287 . CO 
199 GOTO 100 
999 

50000 REM F0RSTE SPRITE 
50010 DATA 000 , 000 , 000 , 000 
. 000 . 000 , 000 

50020 DATA 000 . 000 . 000 , 000 
, 000 , 000 . 000 

50030 DATA 000 , 000 , 000 . 000 
, 000 , 000 . 000 

50040 DATA 000 , 000 , 000 , 000 
. 000 , 000 . ooo 

50O50 DATA 000 , 000 . 000 , 000 
. 000 , 000 , 063 

50060 DATA 128 , 000 , 068 , 064 
. 000 , 132 . 064 

50070 DATA 001 , 004 , 064 . 063 
, 255 , 223 , 096 

50080 DATA 255 , 224 , 206 , 127 

, 206 . 223 . 127 

5OO90 DATA 159 , 031 , 000 , 031 

. 014 , 000 , 014 

50100 REM ANDRE SPRITE 

501 10 DATA 000 , 000 , 000 , 000 

, 000 , 000 . 000 

501 20 DATA 000 , 000 , 000 , 000 
, 000 , 000 , 000 

501 30 DATA 000 . 000 . 000 , 000 
, 000 , 000 , 000 

501 40 DATA 000 , 000 , 000 , 000 
. 000 , 000 . 000 

501 50 DATA 000 f 000 , 000 . 000 
, 000 . 001 , 252 

501 60 DATA 000 . 002 , 034 . 000 
. 002 , 033 » 000 
501 70 DATA 002 . 032 , 128,251 
, 255 , 252 , 007 

501 80 DATA 255 , 006 , 11 5 , 254 
, 1 1 5 . 249 , 254 

50190 DATA 251 , 248 , 000 . 248 
, 112 , OOO , 112 

Hvis du skal bruke tastaturet md 
du skiefcke dette istedenfor Du kan 
i.eks. bruke GET Foranrjre felgende 
linjer i programme!, og du kan bruke 
del med tastaturet. 

1 = Oppover 



M = Nedover 
K = Hoyre 

J = Venslre 

Space = Skill large pa bilen. 
98 POKE 650 . 255 : REM ALLE 
TASTER REPETERER 
100 GET INS 

120 IF INS = I THEN IF Y 0 THEN 
POKE Y1. Y-t 

130 IF INS = Ivl THEN IF Y <255 
THEN POKE Yl, Y+1> 
140 IF INS = J THEN IF X 0 THEN 
POKE XI . X - 1 POKE 2040 . 200 
150 IF INS = K THEN IF X <255 
THEN POKE XI, X+ 1_ POKE 2040. 
201 > 

160 IF INS = THEN CO = ( CO + I 
J AND 15 : POKE 53287 . CO 

Som dere sikkert vil komme ill a 
merkQ, er ikke BASIC saerlig egnet til 
3 bevege sprites rundt pa skjermen. 
Del blir retl og sletl for tregt Vi har 
dBrfor ogsa med en maskinkoderutt- 
ne som gior det sammo som pro- 
gramme! ovenfor 
100 D = 12800 - 3:1=0 
1 10 READ A : IF A = - 1 THEN SYS 
D : END 

120 POKED + | . A : I = I + 1 : GO- 
TO 1 10 

130 REM M/K-DATA 
■ ■ ■ ■ • • • 

1 40 DATA 76 , 1 28 , 50 , 0 , 0 , 0 . 
0.0,0.0.0,0.0.0.0.0 

150 DATAO ,0,0,0,0,0.0.0, 
0.0,0.0.0.0,0.0 

160DATA0, 0.0.0.0,63. 128, 

0 , 68 , 64 , 0 . 1 32 . 64 . 1 , 4 . 64 

1 70 DATA63 , 255 , 223 . 96 , 255 , 
224.206, 127. 206,223, 127. 
159 . 31 . 0 , 31 , 14 

1 80 DATAO , 14.0.0.0.0.0.0. 

0,0,0.0.0.0.0.0 

1 90 DATAO ,0,0,0,0,0,0,0. 

0.0.0.0.0,0.0,0 

200 DATAO . 0 . 0 , 0 , 1 , 252 , 0 . 2 

, 34 , 0 , 2 , 33, 0 . 2 , 32 . 128 

2 1 0 DATA25 1 . 255 , 252 . 7 . 255 . 

6. 115,254. 115.249, 254,251 

, 248 . 0 . 248 , 112 

220 DATAO. 112.0. 32 . 135 , 50 

. 32, 193,50,96. 169. 200, 141 

. 248 , 7 . 169 

230 DATA1 . 141 . 39 . 208 , 141 , 
21 ,208. 169. 100, 141 .0.208. 

141 , 1 . 208 . 96 

240 DATAO , 0 . 169 . 0 . 168 . 170 
, 173 , 1 , 220 , 45 , 0 . 220 , 74 , 
176 , 1 , 136 

250DATA74 , 176 , 1 . 200 . 74 , 
176. 1 , 202 , 74 , 176 . 1 , 232 , 
74 , 140 . 158 , 50 
260 DATA 142 , 1 57 . 50 . 96 . 32 , 
228 . 255 , 201 . 13 , 208 , 1 . 96 . 



32 , 1 59 . 50 . 1 76 
270 DATA3 . 238 . 39 . 208 . 1 73 , 
157, 50, 240, 23.201 . 1 , 208 . 
11 , 169 . 201 . 141 
280 DATA248 . 7 , 238 , 0 . 208 , 
76,237,50, 169,200, 141 .248 
. 7 , 206 . 0 , 208 
290DATA173. 1 , 208 , 24 . 109. 
158 , 50 , 141 , 1 . 208, 32. 253 , 
50 , 76 . 193 . 50 
300 DAT A 160 . 2 . 162 , 0 , 232 , 
208 , 253 , 136 , 208 . 248 . 96 , - 1 
N3r det gjelder sporsmalet om 
hvordan du lager egne spill, kan du |o 
ta en tilt pa" artikkelserier* om AD- 
VENTURE-sptll som nettopp har star- 
teii Mikrodaia. HSper du firmer noen 
nyttige lips der 

Til COMMODORE CORNER 

Jeg har s$ smSit begynr 6 sknve ma- 
sk mkode-programmer Et problem 
leg ikke hat funnel noe svar pS i noen 
av Iserebokene er hvtfke ZERO-PAGE 
adresser som kan brakes f.eks. ved 
mdirekte ZERO-PAGE adressenng. 
Kansk/e COMMODORE- CORNER kan 
oppgi noen adresser som kan brakes 
uten 5 fare til CRASH? 

Med vennUg hi/sen 
Robert Borch 
Hesselbergsgt. 6 
OSLO 5 

Fersi og fremst har du jo de adresse- 
ne som operativsystemet ikke brukar 
i det hele tatt. 

$FB-$FE er alltid ledige Likeledes 
adresse S02. 

$A7-$AB er ledige hvis du tkke 
broker RS-232. 

S2B-S42 skulie vasre ufarlig 3 bru- 
ke hvis du ikke har tenki a ha noe 
med BASIC 3 gjare. 

OBS! BENYTT SJANSEN! 

STORE PENGER A TJENE! OBS! 

Som en avslutmng pa* hver spalte 
vil vi k3re mSftedens tapeligste tips. 
De! kan vasre hvasomhelsi, men dot 
bar heist ikke ha noe nyttig for seg. 
(En POKE som far maskinen til a 
eksplodere ville vasre garantert a vm- 
nel» 

Det eneste vi ber om or at alle som 
vil vasre med og sloss om heder og 
aere tydelig sier fra at Upset skal inn i 
konkurransen, 

Spalteredakteren kaster seg uti 
del, og mener at POKEl,0er et bruk- 
ban tips. (Dere firmer fort ut hvor- 
for|| 

Vi sesl 

TOR 
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COMMODORE LEDER I NORGE 



Tekst 09 foto: Toralv Ostvang 



Hvor stor andel av hobbydatama- 
skinene i Norge er /evert av Com- 
modore Computers Norge A/S? 
Dette spersmalet ser det ut til S 
veere umulig a fa et noyaktig svar 
pa — trolig ford! ingen vet heft sik- 
kert hva svaret er. Men at Com- 
modore er den ubestridte leder pa 
denne delen av datamarkedet, er 
hevet over enhver tvit. 

I norske 'Mikrodata's sakalte <«Data- 
toppen* har Commodore -maskinene 
i lang lid liggei hoyt, stor! SBtt over 
50 prosent Og 1 en starre leser- 
undersBtcelse i 'Mikrodaia' t fjor hasi 
kom del fram tall som lydei pa" at 
over 56 prosent av 'Mikrodata's le- 
sere enten eide en CBM 64 eller en 
VIC 20. 

Importoren, Commodore Compu- 
ters Norge A/S, hevdet selv like far 
arsskiftet at selskapets markedsan- 
del la like oppunder 70 prosent 

Varierenrie tall, med andre ord, 
men ingen som heist tvil om at Com- 
modore er den suverene markedsle- 
der 1 Norge. En av dem som er mest 




Plus/4 er et spennende Commodore- 
produkt. mener Commodore-sjefen 1 
Norge. admmistrerende direkter 
Ari/d AspSs. 



glad lor det, er trolig Commodore- 
sjefen 1 Norge, administrerende di- 
rekiar Arild Aspas. Og da nan gprde 
opp status far iul, kunne han ogsS 
konstatere at tirmaet i sisle regn- 




skapsar hadde en vekst i omsetnin- 
gen pa" tiele 343 prosent. Selv om 
man tar hensvn til at utgangspunktet 
tor beregnmgen var perioden rett far 
den store Cornmodore-boomen 1 
Norge. er resultatet irnponerende. 
Omsetningen akte fra 15 millioner 
kroner til 1 underkant av 70 millioner 
kroner fra juli 1983 til slutten avjuni 1 
fjor. 



Vokser raskt 

Den store Commodore-boomen star- 
tet i Norge som i andre land med at 
Commodore omtrent halverte prison 
pa" hobbydatamaskinene sme. Det 
skjedde sommeren 1 983, og dermed 
var del g|0M Det h|alp ikke hva slags 
mortiltak konkurrentene satte mn: En 
slik pnskrig sammen med den store 
flornmen av Commodore-program- 
mer og annet Commodore-utstyr pa 
markedet har hittil gjort det vanskelig 
for andre a gjare Commodore rangen 
stridlg som suveren markedsleder. 
Resultatet er at Commodore ifelge 
firmaets egne tall har solgt over 
35000 CBM 64- og VIC 20-masklner 
1 Norge. Og importoren snakker selv 
om en markedsandel pS nasrmere 70 
prosent. .. 

ImportBr-firrnaet Commodore 
Computers Norge er likevel ingen 
stor bedrift. Ved arsskiftet talte den 
fasle staben cirka 15 personer, og 
totalt omlag 25 personer var 1 virk- 
somhet i Commodore-hovedkvarle- 
ret i Oslo, Men tallet pa* ansatte er 
raskt stigende Og den sterke omset- 
ningsflkningen tyder for evrig OQSa 
pS at det er lite 3 utsette pa arbeids- 
mnsatsen til Comrnodore-staben. 
Med det store forhandlernettet som 
Commodore har skaffet seg 1 Norge, 
er del dessuten fortsatt duket for 
stort Commodore-salg og nye om- 
setnmgsrekorder for selskapet. 

Fra reseps/onen fros Commodore 
Computers Norge. Ran/a Bemtzen r 
samtale med Heidi Lovstad. 
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Siden 1980 

I Norge har Commodore vsert i virk- 
somhet siden 1980 Til 3 begynne 
med var del mesi business-markedet 
sorn sto i fokus. men i 1983 startei 
Commodore en priskng som har sati 
dype spor etter seg i Dasa-Norge. 
Commodore halverte prisen pa hjem- 
medatamaskmene CBM 64 og VIC 
20. Denrte prisnedsettelsen korn ak- 
kural i ret! lid: Hjemmedata-fenome- 
net var ferdig med sine tarste bar- 
nefir og el sterre marked var nS be- 
redt til -S kastes ut i hobbydata-smel- 
tedigelen Commodore kjente sin be- 
sokelsestid og slo to fluer i ett smekk; 
Banet vel for masseutbredelse av 
hobbydatamaskiner og sikret seg 
samtidig posisjon som klar markeds- 
leder. 

— Sior ytelse for en lav pris, me- 
ner direkiar AspSs er de viktigste 
stikkordene bak Commodores suk- 
sess: Han synes CBM 64 represente- 
rer on utrolig lav inngangsbillett til 
dataverdenen. 



Priskrigen slutt 

Aspas framholder at den sSfcalte vet- 
ttkale produksjonsprosessen er en 
annen Srsak til Commodores suk- 
sess. — Det betyr ar vi produserer de 
aller fleste komponenier selv Dess- 
uten bidrar store produksjonsserier 
hos Commodore til a holde prisene 
nede. sier han 

Selve prisekrigen er derimot slutt, 
i hvert fall for Commodores vedkom- 
mende, hevder AspSs Men han stik- 
ker likevel ikke under en stol at prisen 
pgsfi i (remtiden vil vaere et viktig 
konkurranse-elemeni for Commodo- 
re, for eksernpel n5r Commodore n3 
snart gir seg i kast med markedet for 
IBM-kompatlble Personal Compu- 
ters. 



USA-eid 

Commodore i Norge eies na helt og 
holdent av moderselskapet i USA 
Som i sa" mange andre bedrifter i da- 
tabransjen har det ogsS hos Com- 
modore Norge vasrt storm pa" toppe- 
ne, noe som toppet seg med et brfitt 
lederskilte for ett Srs tid siden. - For 
bedrifter i rask veksi er det vel natui- 
lig at hver vekstfese kan stille ulike 
krav til lederskapet. er Aspas' egen 



Stor trafikk p3 lageret hos Com- 
modore: Baard Jonny Saaierog og 
Terje Aarbog er i fuf/ sving 




kommentar til urolighetene, som no" 
ser ut til 3 here histonen til. 



Nye veier 

Del nylier ikke 3 hvile lenge pa sine 
laurbser i databransjen, det er natur- 
ligvis lederne hos Commodore klai 
over Direktsr AspSs og nans kolle- 
ger er derfor n§ pa ivrig |akt etter nye 
markeder IBM-kompatible PC'er har 
vsert nevnt, og skolemarkedet er el 
annet stikkord for Commodores sats- 
ninger i Norge Selv om de norske 
skolemyndighetene har anbefalt sko- 
lene 3 kjope starre og dyrere ma- 
skiner enn CBM 64, finnes det likevel 
en anseelig mengde Commodore- 
maskmer rundt ornkring i norsk sko- 
le. For arsskiftet lanserte dessuten 
Commodore en ny samarbeidsavtale 
med en av Norges store bokhand- 



Commodore Computers Norge ASS 
har en drifug service-avdeling med 
6- 7 ansatte, her represemen ved lo 
av dem Sveirr Hovmd og Dag Rm~ 



ler-kjeder med Tanke pS 3 bygge opp 
en slags kompetansesentra, der man 
bade f3r kjopt datamaskiner, f3r god 
tilgang pS data-litteratur og dessuten 
kan fa gode r3d fra kompetente og 
datamaskm-dyktige ekspeditarer. 

Og Commodore-ledelsen er na- 
turligvis spent pa de nye produktene 
som ble lansert i fjor hast. Plus/4 og 
Commodore 16. Kjenner vi Com- 
modore rett. har de sikkert nye over- 
raskelser i skjorteermet ogsa.. 
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VIZASTAR - et 4. 



Viza Software har gjort det fgjenf 
Etter sukssessen mad Viza write 
har produsenten fulgt opp og laget 
et program som ska/ klare a felge 
opp sin forgjenger. Viza write var 
og er et program som som trten vi- 
dere Man mSfe seg mod storre 
tekstbehandfingssystemer. Kan Vi- 
zastar klare en lignende sammen- 
ligning? Las og dam se/v. . . 

Tekst: Eirik Gulbrandsen 
Foto:N»s M. Kjus 

Ferst og Iremst: hva er Vizaslar? 

Vizastar er et kombinert regneark/ 
database, en sammensetning som er 
unik for behandlmg tall i databaser 
Og tekst j regneark Det er ogs3 unikt 
fordi det er vel det eneste program 
som kjaier bade regnearket og data- 
basen samtidig! Del oppstar nye di- 
mens|oner i databehandllng n3r 
kommumkasjonen er sa total og di- 
rekte som tilfellet er for Vizastar. Pro- 
gramme! representerer ogsa" derlor 
en nytenkning med databehandling 
som ferst og Fremst kommer en til 
gode: du som skal bruke program- 
me! 

Far vi gar las pa selve omtalen av 
programme! skal jeg for oversiktens 
skyld lage en liten oversikt over for- 
og bakdeler med Vizastar. 

Ulemper: 

1 Begrenset kapasiiet intern t 

2 Overriding / kommunikasjon med 
diskertstsjon gar sakte Istikkord 
1541) 

Det ver verdt og merke seg at ingen 
av disse ulempene bererer selve soft- 
waren, men kurt Commodorens eg- 
ne begrensinger. 
Fordeler: 

1 . Direkte kommunikasjon regneark/ 
database 

2- Utrolig lett a" laare/bruke 
3. Prograrnrnerbar 

Hva er et regneark? 

Tenk deg et kjempestorl papirark 
oppdelt i ruter Hver eneste rute bin 
tdenifisert som en rute pa" et sjakk- 
brett bortsett fra del er mange flere 
ruler og velge mellom. I Vizastar's til- 
felle er det Ira A lil BL vertikalt 164 ru- 
ter vertikalt) og fra 0 til 999 horison- 
talt Dene gir en total pa 64 000 ru- 
ter. Hvar rute kan innholde sS mve 




man Will men det betyr ikke at man 
kan lylle opp alle 64 000 pa en gang! 
I praksis (del kommer an pa hvor 
mve hukommelse maskinen har) kan 
man bare fylle opp en liten del av 
regnearket. Men hvorfor trenger 
man da sa mange ruter? For 3 torkla- 
re det m3 jeg fortelle lilt mer om 
hvordan et regneark fungerer La oss 
farst ta en enkel regnooperasjon Du 
vil legge sammen tre tall. (Du kan 
selvsagt legge sammen tallene i ho- 
dei eller med kalkulator fortere, men 
straks det er snakk om 30, 300 elter 
3000 tall blir det verre.) 

Eksempel: Du starter everst i 
venstre hjerne, altsfl celle AO. Du 
styrer markaren til celle AO og sknver * 
35 og trykker RETURN, Du styrer 
deretter markaren ned lil celle A1 og 
skriver 10, trykker RETURN, plasse- 
rer marker i celle A2, sknver 2245 og 
trykker RETURN PS skjermen vil dot 
na" st& tre tall under hverandre Du vil 
n9 regne ut hva de tre cellene blir Id 
sammen Du kan na sknve i hvilken 
som heist celle pa arket (utenom cel- 
le AO til A2| en forme/. Her er det 
store forskjeller fra regneark til reg- 
neark, Siden vi tar for oss Vizastar 
her bruker jeg selvsagt dette forma- 
te!. Det naturltgste vil vasre a bruke 
celle A3 som ligger rett under: Styr 
marker til celle A3 og skriv: 
i @sum(a0 + a1 +a2) 
eller 

H- @sum(a0:a2) 

Nar du trykker RETURN vil du 
IKKE se tormelen i cellen, men resu- 
latet av regneoperasjonen som i det- 
te lilfellet blir 2290 

Dette er faktisk alt du trenger a vi- 
te for a skienne prinsippet for utreg- 
ninger p3 et regneark! Du har selv- 
sagt en mengde avanserte funskjo- 
ner i tillegg til + @sum(l. Du har de 



fleste Bastc-funksjoner, tunksjoner 
for giennomsniti og logiske operaio- 
ner pluss en mengde andre for 3 leUe 
regneoperasjoner 

Man kan ogsa sknve forklarende 
tekster. Eksempel: I celle B3 (ved si- 
den av svaret av regneoperasjonen) 
kan du sknve «Dette er en regneope- 
rasjon fra RUN». 

NJ3 vet de fleste s3nn omtrent 
hvordan et regneark fungerer. Jeg 
skal nS ga over til mer spesielle ting 
ved regnearket og dets funksjoner. 

Menyer 

Menyen blir aktivisert med Com- 
modore-tasten Hasten med Com- 
modore-merketl og menyen ser silk 
Ut: 

CELLE ARK F1L SKRIVER DATA 
GRAF 

Jeg skal kort nevne hva hver ling 
gjer pluss at jeg behandler GRAf og 
dem omfattende DATA-kommando- 
en nsermere. 

Med celle-kommandoen kan du 
formatere cellen til S vise tallet p§ en 
spesieU mate. Man kan variere cel- 
lens (eller egentlig) kolonnens bred- 
de. Man kan viske u! innholdet av en 
celle eller man kan sperre en celle 
mot 3 bll forandret. 

Ark-kommandoen har en del lig- 
nende kommandoer som celle-kom- 
mandoen bortsett fra at den gjelder 
hele arket Man kan f eks sperre hele 
arket og apne de cellene som skal 
brukes. Med denne kommandoen 
kan man flylte og kopiere mnhold i 
cellegrupper, slette eller mnsette ra- 
der og kolonner 

Under Ark-kornmandoen finnes 
ogsa vtndu-kommandoen som kan 
dele opp skjermen i vinduer. silk at 
man f eks kan arbeide rundt omknng 
p3 arket, sette inn verdier og forand- 
re formler mens man hele tiden ser 
overste del av arkel dei resultatet av 
alle forandnngene du gjor blir skrevet 
ut <i eks) 

Under Ark-kommandoen finnes 
ogsa Utfer, den kanskje kraftigste 
kommandoen p5 hele regnearket. 
Den kommer jeg tilbake til. 

FIL-kommandoen henter og lagrer 
regnearket pa diskett og med denne 
kommandoen kan man gjere like 
mye med disketten som fra basic. 
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GENERASJONSVERKT0Y 



SKRIVER-kommandoen sarger for 
utskrtfi til printer og er ganske omfal- 
tende. Det viktigsie er kanskje at Vi- 
zastar er like avansert som Vizawrite 
med sine utskriflskommandoer og 
arbeider mot bade parallelle (bl.a. 
Epson heygrafikk-utsknft) og serielte 
(Commodore og ascii) sknvere 



Databasen 

Data-kommandoen er egenthg et 
program for seg. Bak Data-kom- 
mandoen skjuler nemlig data-basen 
seg. Databasen er eksiremt lett a 
bruke og fungerer som opptil ni kar- 
totekkori som man kan skrtble pa, 
relte, lagre og heme nesten like leu 
som med en Macintosh. Hv»s del er 
noen som har blilt skremt av Super- 
base 64 eller andre superavanserte 
databaser s5 er bare 5 prove igjen!! 

Databasen i seg selv er meget en- 
kel, man kan sake pa nakkelord, slet- 
te, editere og opprette nye filer. 
Men her kommer regnearket inn. 
Jeg kommer ikke til a forklare hva 
som kan glares i detaij, det ville opp- 
ta for stor plass, men heller gi noe og 
sammenligne med og gt et eks- 
empel Farst sammenlignlngen- Ved 
a bruke Kniena-kommandoen under 
Data-kommanrioen har man like sto- 
re fnhet som i Basic! Ptuss at man 
har kraftigere sake-kommandoer enn 
noen Basic har Eksemplef En skole 
hvor alia elevens ligger inne i basen. 
Basen mneholder felgende opplys- 
nmger om hver elev Navn. Ml 
adresse, alder, k|ann og hvilken klas- 
se de gSr i 

Man kan da AUTOMATISK ved 
h|0lp av Ullar-kommandoen sknve ut 
navn og adresse, f eks til brev HVIS 
elevens etternavn begvnner pa en 
bokstav etter A/I i allabetei. ikke heter 
Olsen, har «sen»» i navnet. gar i klasse 
7A. 8D eller 9B og or gutt. Enkelt 
hva? Akkurat hva man skal sknve for 
5 fa det til gar jeg ikke inn pa her, 
men med litt studering av rnanualen 
finner man o"et fort. 



Grafikk 

Vizastar har megei gode grafikk- 
muligheter Man har meget gode 
muligheter for grafisk representasjon 
av tall De to enkleste er sevle-dia- 




grammet og kurve-diagrammet. Dis- 
se kan bare behandle 1 3 tall om gan- 
gen, men brukes de nktig kan illust- 
rere rekker og hauger med tall meget 
bra, De to mest avanserte funksjo- 
nene er multi-savlediagram som teg- 
ner soyler tredimensjonalt Denne 
funksionen kan behandle storte 
mengder tall Den sisie funksjonen er 
«Vmkel», et kake- eller skivediagram 
(pie-chart). Sktve-diagrammel kan 
ikke behandle s5 store tallmengder 
som multi-savlediagrarnmel, men 
har en egen evne til a vise forhold 
mellom tall Utvelgelse av hvilke tall 
som skal vises grafisk bruker det 
samme prinstppet som lor utregnin- 
ger Skal du for eksempel fremstille 
de 3 verdiene som vi salt opp i stad 
grafisk i sktvediagrammci kan du 
trykke Commodore-taston lor 3 akti- 
visere menyen, G for Gral og V for 
Vinkel. Maskinen vil deretter sperre 
deg om hvilket omrade den skal hen- 
le data fra. Der sknvor du A0:A2 og 
vips, du har laget ditt egei skive- 
diagraml Slik fungerer ogsa* de andre 
grafiske funksjonene 



Utfor 

Tilslutt vil nevne litt om Utfer kom- 
mandoen Med denne kommandoen 
kan man programmer e basen til 3 
gjere Jaste kjedelige runner, man la- 
gs menver for nvbegynnere og lage 
aktive mslruksjoner lEksempler pS 
denne kommandoen fmnes p3 dis- 



ketten som falger med ) Rent ge- 
nerelll kan man si at den fungerer 
som en kassettspiller, don Mar opp* 
og lagrer tastetrvkkenc dine isiedet 
for a utfare dem, akkurat sorn et ba- 
sic-program fungerer i dtrekte og 
program-mode. Denne kommando- 
en og databasen gjer Vizastar til noe 
helt unikt blant regnearkene 



Tilslutt 

Programmer koster ca 1600 kr og 

den norske versjonen seiges av: 

NAVUS A/S 

Tollbugt. 4 

Oslo 1 

Norge 

Daglig leder er Tom Jahr 

Gratulerer og takk for et godi 
program, Kelvin Lacy 

Gratulerer og takk for en megei 
god norsk oversettelse. Vidar Eggen. 

Gratulerer og takk for at dere viser 
respekt for brukerg, NAVUS A/S og 
Tom Jahr 
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jrodukt fra Dansk 
software center 



DSC-gruppen harden 
administrative losning til 
sma og mellemstorevirksom- 
heder 

Commodore 64 - > 
Totalsystem med 
Fuld integration & 
ingen disketteskift 
til under 10.000,- excl. moms. 
Modulpriser fra kr. 2.690,- 
excl. moms. 

Uovertruffen diskettekapacitet, 
{op til 4 Mega-Byte) 
BUSY-PACK^s kapacitet afhasngeraf 
storrelsen at den disketteenhed 



systemet monteres med. 

Samtlige Commodore disk-modeller 

kan anvendes. 



(Model Antal drives Total, tegn 

Commodore 1541 1 170.000 
Commodore 8050 2 1 .024.000 

Commodore 8250 2 2.048.000 



Systemet kan anvende 1 eller 2 
af ovenforncevnte disketleenheder i 
en vilkSrlig kombination. 
BUSY-PAC K 9 -0konomisystemet 
bestaraf 4 moduler,derkan anvendes 
integreret, eller enkeltvis. 
DSC-gruppen har service-centre over 
hele landet.udfyld kuponen pa 
modsat side, og fa mere at vide. 



BUS?: 

CK 



FINANS 

DEBITOR/KREDITOR 

FAKTURERING 

LAGERSTYRING 



Commodore 64 - 
er lige sa professions 
som det man bruger 
den til. . . . 




DSC-gruppen har erfaringen: 

BUSY-PACK* er udvlklet af DSC-gruppens eget softwarehus. Siden 1 978 har DSC-gruppen leveret Here end ' 
administrative systemer til Commodore. DSC-gruppen beskseftiger i alt 32 medarbejdere over hele landet. 

BUSY-PACK R markedsfores gennem et landsdaekkende net af autoriserede 
forhandlere. 



Indsend kuponen til DSC, Hjelmensgade 2, 8000 ArhusC, eller ring til det naerme 
service-center, og f3 oplyst naermeste forhandler. 

Sjaelland: 02-13 94 47 Ost/Midtjyl.: 06- 19 99 76 

Sydjyl./Fyn: 05-54 20 64 Nord/Vestjyl.: 08-3518 98 



Saet kryds 

□ Send gratis brochure & prisliste 

□ Jeg vil gerne kobe BUSY-PACK** 
manualen (kr. 185,00 IncL moms) 

□ Jeg vil gerne prove systemet 
uden forpligtelse. 



Navn 



Adresse 


Post nr. 


By 




Koniaktperson 
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DERFOR ER VIZASTAR «NORSK» 



Vizastar er sotn de alter ffeste and- 
re programmer laget pa engelsk, og 
de fteste programmer til salgs i 
Norge er engelssprSktige. I den se- 
nere tid har manualer og bruksan- 
visninger til programmer ogsa blitt 
oversatt til norsk, men solve kom- 
munikasjonen med maskinen har 
alltid forgStt pa engetsk. Wet fin- 
nes sefvsagt unntak, Jesere fSr ret- 
te meg hvis jeg tar fail). 

Det farste mart legger merke til 
nar man kjoper Vizastar, er den 
profesjonelle innpakningen og at 
omslaget er norsk, videre tinner 
man en norsk manuaf, og tapper til 
a teste p& tastaturet, slik at det 
norske tegnsetter som Vizastar har 
innebygget, b/ir lettere a bruke. 

Tekst: Eirik Gulbrandsen 
Foto:Nils M. Kjus 

Del er verdi a merke seg at del ogsa 
hgger en uhellsgaranti sammen med 
Vizastar i tilfelle orginaldisketten 
skulle bti odelagt. 

Etter ha startei opp Vizastar kom- 
mer det vtrkelig gledelige: alt er pa 
norsk! Alie de tekniske uttrykkene 
som lar livet av de lleste er norske og 
forstaelige. 

Men Vizastar er jo engelsk og er 
laget for el stort engelsksprSklig mar 
ked. hvorfor er det da tatt hensyn til 
lille Norge? Det er hovedsaklig to 
grunner til dette; 

1 , Importaren av Viza-produkter i 
Norge, NAVUS A/S. hadde stor 
sukssess med Vizawrrte som de ogsS 
delvis oversatte til norsk. (Den har 
norsk manual og norsk tegnseti. 
men engelske menyer.) Denne gan- 
gen bestemte de seg for 5 g3 lapet 
ut, en 100 prosent norsk version ut 
p5 markedei med en gang. 

2- Den andre grunnen har en me- 
get inieressant historic. Det var en- 
gang . en som k|0ple Vizawnte 
Han kjepie den moget tidlig, s3 han 
likk den engelske versjonen. NAVUS 
kom senere ut med den norske ver- 
sjonen med norsk manual. Han skal- 
iet seg denne og ble skuffet. tOg 
mange med ham. den engelske ma- 
nualen var dfirlig og den norske ma- 
nualen var en direkte overseitelse og 
like darlig.J Dermed tok han rodbly- 
anten og gikk over manualen, matte 
opp pa en messe der NAVUS var 

36 




Vidar Eggen har g/ort Vizastar til et 
ypperlig «norsk» program. 

representert og beklaget seg over 
dSrlig norsk oversettelse. Der fikk 
han ganske enkeli til svar «Gjflr del 
bedre selv« Vel, da si3r man ganske 
enkelt igien med to muhgheter, en- 
ten forsvinne i stillhet, mumlende 
lavt om dSrlig service, og fonsette 5 
kjope halvhjertede oversetlelser av 
engelskspraklige programmer og ha- 
pe p3 bedre tider. Den andre rnulig- 



heten er meget «enkek GJ0RE DET 
BEDRE SELV. 

Den som idag kjaper Vizastar, kan 
kanskje i forste rekke takke Vidar Eg- 
gen for arbeidet han har gjort med 
Vizastar. Han oversatle Vi2astar og 
la den tilrette for norske forhold i sin 
fritid, og ser man p3 resultatet s5 
gikk det vel an del netter pS akkurat 
detl Eggen sier selv at han gjennom 
NAVUS hele tiden samarbeidet med 
Viza Software i England og at den 
engelske konstruktoren Kelvin Lacy 
har latt hensyn til at programmet 
skat kunne oversettes til andre sprSk 
bSde nar det gjelder tegnsett og me- 
nver som begge defer ligger i RAM 

En aldn s5 Nten kontrast til slult: 
Hvorfor skal en som bruker en IBM til 
50 000 kroner og et program til 
6000 kroner neye seg med et alt 
som skjer er pS engelsk? Manualer, 
dialog med rnaskmen og tegnsettet 
er engelsk En Commodore 64, dis- 
kdrive, printer og ett stk. avansert 
helnorsk program koster under 
10000 kri 
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COMMAMKR 



NATO COMMANDER 

CBM 64 Kr 196, - 




STRIP POKER 

SPECTRUM Kr 165,- 
CBM 64 Kr 188. - 




F- 1 3 STRIKE EAGLE 

SPECTRUM Kr. 165. - 
CBM M Kr 298.- 




FORT APOCALYPSE 

SPECTRUM Kr 165, - 
CBM 64 Kr 196, - 



SOLO FLIGHT 

SPECTRUM 
CBM 64 Kr ?9fl - 




BLUE MAX 

SPECThUM Ki 165. - 
CBM 64 Kr >W. - 




SPITFIRE ACE 

CBM 64 Kr 198. - 




ZAXXON 

SPECTRUM Kr 166,- 
CBM 64 Kr. 198, - 




COLD RUSH! 



Prisene er veil. ink!, moms og gjeldar for kassetter 



Kontakt MBnneste computerforhandler 



MYSTIC MANSION 

CBM 64 Kr 106,- 



1(1 V 11-111 III 



BEACHHEAD 

SPECTRUM Kr. 186,- 
CBM 54 Kr. IBS, - 




DALLAS 

CBM 64 Kr. 298 
KUN DISK 




BRUCE LEE 

SPECTRUM Kr. 165,- 
CBM 64 Kr 198, - 



POOYAN 

CBM 64 Kr 198.- 



O'RI LEY'S MINE 

CBM 64 Kr. 196.- 



Cauerns of 



CAVFHNSOF KHAFKA 

CBM 64 Kr 186. - 



^zTeccWge 



A7TEC CHALLENGE 

CBM 64 Kr 188 - 




POflfllDDEN FORES 

CBM 84 Kr 1B6. - 




FOR DIN COMMODORE FRA 
Data Huset as 



EKSPANSJONSKORT FOR CBM-64 

* 5 UTTAK FOR DINE CARTRIDGE PROGRAM 

* HVERT UTTAK KONTROLLERES INDIVIDUELT MED BRYTERE 

* RESET KNAPP 

* EGEN SIKRING FOR A BESKYTTE DIN CBM-64 

* CARDCOS LIVSTIDS-GARANTI 

* PRIS KR 895,- INKL. MVA. 

TEKSTBEHANDLINGSPROGRAM 

* SKJERMUTSKRIFT MED 80 TEGNS BREDDE INNGAR I 
PROGRAMMET 

* AVANSERT FLYTTING AV TEKST MED ENKLE KOMMANDOER 
*KLARERjE,0OGA 

* FUNGERER I EN UEXPANDERT VIC-20 

* FAES TIL VIC-20 OG CBM-64 

* CARDCOS LIVSTIDS-GARANTI 

* SVENSK INSTRUKSJONSMANUAL 

* PRIS KR 702 - CBM-64 KR 570,- VIC-20 

PRINTER INTERFACE MED GRAFIKK 

* CENTRONICS PARALLELL INTERFACE MED GRAFIKK 

* FAR PRINTEREN DIN TIL A FUNGERE SOM EN COMMODORE 
PRINTER 

* KOBLES PA SAMME STED SOM COMMODORE PRINTERE 

* INGEN MODIFISERING ER N0DVENDIG 

* FUNGERER MED ALLE VANLIGE PRINTERE 

* PASSER TIL VIC-20 OG CBM-64 

* CARDCOS LIVSTIDS-GARANTI 

* PRIS KR 985 - INKL. MVA. 

NUMERISK TASTATUR 

* RASKERE INNTASTING AV TALL 

* ALLE TASTENE KAN PROGRAMMERES ETTER BEHOV 

* KOBLES TIL I JOYSTICK-PORTEN 

* PASSER TIL VIC-20 OG CBM-64 

* CARDCOS LIVSTIDS-GARANTI 

* PRIS KR 650,- INKL. MVA. 



Data Huset as 



BOKS353 4580 LYNGDAL 
TLF. (043) 46 401 



3# 




i ? /f/cient, 
i/iryitema 




Data Huset A.S er total-ieverandar av utstyr og programmer for mikrodata-maskiner. 
Send etter v&r gratis prisUste som inneholder ca. 4000 PROGRAMMER og 250 B0KER. 



□ JA, send meg prislisten - GRATIS 
NAVN: 



ADRESSE: 



POST NR. /STED. 
TYPE MASKIN: 



]EG VIL BESTILLE Sendes: 

□ EXPANSION _ |j L 

□ TEKSTBEHANDLING LISIS HUSEl A.S 

r, □ PRINTER INTERFACE BOKS 253, 4580 LYNGDAL 

NUMERISK TASTATUR TLF (043) 46 401 



FORHANDLERE S0KES 



ZORKs verdener 



En af de terste compulere jeg havde 
fornejelsen af at arbejde med, var en 
Digital PDP 1 1 med et 5 megabyte pla- 
delager. Pa denne maskine var der 
lagrel et eventyr-spil/adventure-game, 
der hed Dungeon. Jeg tilbragte mange 
gode timer (efter arbejde) med at un- 
dersoge det mystiske undergrunds- 
emperie, kun bevsebnet med et drllag- 
ttgt svasrd og min trofaste messinglyg- 

Da jeg endellg feilte. at jeg var ved at 
gare fremskridt, besluttede firmaet, 
jeg var ansat t. at ophere med aktivite- 
teme og solgte computeren. 

Da jeg for ca. et ar siden kobte min 
CBM 64 blev jeg meget glad . da j eg op- 
dagede.at Infocom havde konverteret 
mit yndligsprogram t"! "The Great 
Underground Empires of Zork 1 , 2 og 
3«. 

Naturllgvis kunne det oprindelige 
spil ikke indeholdes pa en diskette, sa 
Inlocom delte det op i tre dele og gjor- 
de hver del It) et selvstaendigt eventyr 

Zork blev hurtigt et af de mest popu- 
laare spil til CBM 64, hvilket fikCommo- 
doretil at kabe rettighedernetil at mar- 
kedsfore det under eget navn. Samti- 
dig blev pnsen ssenket fra 450 kr. til 
115 kr . pr diskette. 

I Zork indtager spilieren roller som 
den frygil&se e ventyrer . Del hele fore- 
gar i «Det store undergrurtdsemperie«, 
som tilsyneladende er bygget af Fro- 
bozz Construction Company pa Lord 
Dimwit Fiatheads foranledning. 

I begyndelsen af det ferste eventyr 
(Zork t) vil man som spiller finde sig 
sel v st aende pa en mark uden for et I ih 
le hvidt hus. Fra derte udgangspunkt er 
opgaven at samie Zorks 20 forsvund- 
ne skatte, kornme levende tilbage og 
Icegge dem i et skrin, der er placeret i 
dagligstuen i det hvide hus. 

Det er dog ikke helt sa enkelt som 
det lyder. Pa ens vej msder man for- 
skellige personer og andre skabnin- 
ger, som ikke alle er lige venlige. Fx 
mader man kort efter start en trold, 
hvis eneste opgave her i livet synes at 
vaere at draebe en. Zork er Ikke kun en 



lille tur ind i el magisk land. Nej, Zork- 
verdenen indeholder mange fascine- 
rende elementer af bade ha]- og lav- 
teknologi, sa som dsemningen, der 
kontrollerer en flod. hvor den uovedes 
man0vrer nemt kan fa en ulykkelig ud- 
gang. 

Hvis man er sa heldig at fuidtare 
Zork 1, bliver man ten til en gammel 
kcempehej. Nar hajens dor er smffik- 
ket i, ma man -hvis man vil fortsaatte- 
af med endnu 115 kr. for at kabe Zork 
2. 

I begyndalsen af Zork 2 vagner man 
op i hojen og genfinder to kendte gen- 
stande -gset hvilke? Man ser nu Zorks 
rige igen, og denne gang skal man ha- 
ve kontrof over emperiet ved hjselp af 
Zorks troidmand. Troldmanden kan 
virkeen smule senil, og af og til blander 
han sine trylleformularer sammen. 
Detle kan give eventyreren en del ube- 
hageligheder. 



ZORK I 




Som i Zork t er der en masse fantasi 
og teknologi blandet sammen Man 
moder ejendommelige skabninger. fx 
en enhjerning med masrkelige spise- 
vaner og en dvaarg , der hele t iden tale i 
med sig selv. Undervejs far man 
points, og nar man har n£et 400, og de 
sidste forhindringer er overvundet, 
kan eventyreren fortsaatte til den sid- 
ste del af Zork-tnlogien. 



Zork 3 er i nogen grad forskelligt fra 
de to foregaende. For det terste ef 
pointssystemet anderledes. Det er 
vanskeligere at score points, og de til- 
deles pa en mystisk made. 

Jeg mener, Zork 3 er det mest ud- 
fordrende af de tre spil, og selv om jeg 
Here gange har opnaet det maksimale 
arrtal points, har jeg endnu Ikke naet 
slutningen af spillet. 

Bemajrkelsesvasrdigt ved Zork-tri- 
logien er sproget. Det er nodvendigt at 
have gode kundskaber I engelsk, idet 
hvert Zork-spil ->kender« over 600 en- 
gelske ord. Endvldere adskiller Zork 
sig fra andre evefityrspil ved maden, 
hvorpa det an vender sproget. Hvor an- 
dre spil kun kan modtage enkle In- 
struktioner som fx »GO NORTH« og 
»GET VASE« accepterer Zork (j a nogle 
gange er det ligefrem n0dvendigt) me- 
re detaljerede ordrer. Eksempelvis 
oTAKE BOOK AND CANDLE« eller 
»DROP BOOK AND PUT CANDLE IN 
SACK". Dette gar naturligvis at spillet 
bliver mere spasndende. 

Det faktum at beskrivelserne i Zork 
er meget livlige, taler ogsa til dets tor- 
del. Et eksempei pa beskrivelse at et 
vaarelse fra Zork 3 er vist pa figuren 

Jeg vil her give felgende ra,d for at 
hjaalpe den nye eventyrer: Husk at der i 
Zork er op til 10 mulige udgange fra et 
vEerelse, Tegn altid et kort over hvor du 
har vseret og, hvis det er muligt. angiv. 
hvad du landt. 

Vser ikke bange for at blive drasbt. 
Men hvis du befinder dig i en hasarde- 
ret situation, sa prav at SAVEe spillet, 
overvej muhghederne og reLOAD og 
tortsaat spillet. Hvis det Ikke giver re- 
sultat, kan man jo altid begynde forfra. 

Som konklusion vil jeg naavne noget 
om grafikken I Zork. Der er ingen- Efter 
min mening er det ogsa det rigtige for 
et eventyrspil . fordi spilieren sa dan ner 
sig sine egne billeder mde I hovedet og 
derefter bruger fantasien. 

... . Hvor var det forresten, jeg gjorde 
at den lampe?? 
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TIDENS SOFTWARE? 




v 



s 



Commodore! 

Billedei viser Dare ei lille udpluk af 
programmer III Commodore 64. ver- 
dens mesl poputere hjemme- 
computer. 

Commodore er faktisk del 
computerfirma i verden, der har 
udviklet (lest programmer over- 
hovedei. ca. 2.000 ialt - forelabig! 

I realileten findes der et 
program ill enhver opgave, dukan 
tanke dig - plus en hel del andre. 
Og der kommer stadig nye til - der 
star Commodoie pa fremiidens 
software. 




Privatregnskab del 2 + 3 

Af Jergen Jorgensen 

Eftersporgslen efter RUN nr. 3 har veeret sa stor, at det bar vaaret nadven- 
digt at genoptrykke at mindre oplag. Alligevel har mange spurgt forgaeves I 
kioskerne efter dette nummer. 

Af hensyn til de la? sere, derikke ftk fat i nr. 3, bringervi heri nr. 1/1985 ba- 
de anden og tredjedel af RUNs Privatregnskab, idet andendel blevbragt i 
RUN nr. 3/84. 



Privatregnskab del 2 

I del 2 er der mulighed for at fa opsum- 
merei budgettallene, og fa dem prinlet 
ud pS skaarmen. frogrammet bereg- 
ner el overskud/underskud for hver 
maned, og overfsrer del til na9ste mi- 
ned. 

Detle foregar i punkl 3 i hovedme- 
nuen, der leder hen III en undermenu. 
Herskal man opsummere data, inden 
man begynder at skrlve dem ud pa 
skaarmen. Her kan de nu vises maned 
for maned sammen med en arstotal. 
Man »bladrer« frem ©Her tllbage i ma- 
nederne ved at trykke pa ■ + « eiler »-* 
tasterne. Vil man tilbage til menuen, 
trykker man pa tasten mod pilen 
(opad). Har man en saldo fra sidste Sr. 
kan man laagge den ind i variablen 
BU(0.2) i linie 14310. 

Saving og loadning af filer 

Here lassere har vseret Heft t vildrede 
med hensyn til , hvor og hvordan filerne 
gemmes. Der har fra starten vaerei ta- 
le om TO filer - en til kontoplanen (tek- 
sterne)og en til budgettallene. Den fer- 



steskulle gemmes under punkt 1 i me- 
nuen med kommandoen LOAD eiler 
SAVE,". Den anden Tile har vasret loa- 
ded eiler saved under punkterne 10og 
11 . Det har vaaret fo rvirrende, at skull e 
udfere denne procedure 2 steder. Da 
vi her f ra del 3 skal arbejde med endnu 
Here filer, vil ALLE filer f remover 
loades/saves under punkterne 10 og 
11. 

Derfor kan tolgende linier slettes: 
11221 

11400-11 470 mkl. 

Det ber dog forst foretages, nar 3. 
del ER indtastet. 




Privatregnskab del 3 

Her i del 3 er der nu mulighed for at ud- 
prin te budgettet pa en evt . printer. Selv 
om programme! er lavel. sa del ogsa 
kan bruges uden printer, kan man ikke 
komme udenom, at en printudskrift 
giver lidt stcrre overskuelighed. 

Princippet i opstillingen er det sam- 
me som pa skeermen, men i printud* 
skriften er de enkelte underkontl ogsa 
medtaget. 

Udskriften er desuden dell i to dele, 
en for fsrste- og en for andet halvar. 
Selve betjentngen af den del af pro- 
gramme! giver sig selv. 

Indiastning af bilag 

Selve indtastningen af bilag er principi- 
elt skarpt adskllt manederne imellem. 
Grunden til denne adskillelse er be- 
grundet icomputerens hukommelses- 
kapacitet. 

Nar man starter indtastningen af bi- 
lag, bliver man spurgt, om man har en 
eksisterende bilagsfile (fra samme 
maned). der i sa fald skal indlaeses 
terst. Har man indlaest sin bilagsfile, 



±2 



finder computeren selv ud af del. Sva- 
rer man |a til spargsmilet. ledes man 
hen til punkt 19 i hovedmenuen. Svarer 
man nej. tildeler compuleren et bilags- 
nummer, og man kan begynde Indtasl- 
nmgen. Man bliver spurgtom arstalog 
indtaster 4 cifre (f.eks. 1985). Ved ma- 
neden indtaster man 2 cifre {f.eks. 03 
lor mans) og ved datoen r ndtasier man 
Iigeledes2cifre. 

Nar man bliver spurgi om kontoen, 
indtaster man kontonummeret (2cifre) 
og kontoteksten primes automatisk ud 
pa linien nedenunder. Wan kan ikke 
indtaste pa Konti, der er delelige med 
10 (hovedkonti)og programmet afviser 
et sadant forsog. 

Teksten til bilaget ma veere pa hsjst 
12 cifre og event uelle ove rskydende vil 
blive ignoreret. Belcbet kan indtasies 
enten som et belt tal, med en decimal 
eller med to decimaler. Husk at anven- 
de punktummet som »komma«. An- 
vendelsen al et komma vil bevtrke, at 
decimal erne ikke kommer med, Nar 
man har Indiastet betalingsmaden. 
kontrollerer man, at man har indtastet 
rigtigt. Taster man »A« for accepteret, 
er posteringen germ. Taster man »R« 
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for rettes, bliver del indtastede staen- 
de p5 sksermen, og man kan ga del 
igennem en gang til for retteiser. Ta- 
ster man »S« for slettes, sa bliver den 
pagaeldende indtastnmg ignoreret. og 
den nasste postering vil fa samme bt- 
lagsnummer. Uanset hvilke af de tre 
bogstaver. man her taster, bliver man 
spurgt. om man Brisker at indtaste He- 
re bilag. 

Har man Here bilag, skal man ikke 
skrive ar/rnaned/dato hver gang, idet 
disse data bliveroverfart fra foregaen- 
de postering - med mulighed for at ret- 
te i datoen. Nar man har tastet ferste 
bilag ind, kan man ikke rette i 
cir/mcsned, da programmet kun kan 
rumme en maned ad gangen. 



Nar man har saved sin bHagsfile, 
slettes variablerne og man kan starte 
pci en ny maned. Hver bilagsflle vil au- 
tomatisk blive gemt under den pagaal- 
dende ma/ieds navn. men nar man 
skal indlasse filen. skal man blot angive 
manedens nummer 

Afsluttende bemaerkninger 

Mange laasere med kassettestationer, 
har ringet ind og sagt, at de ikke kan 
gemme de enkelte filer pa bandet. 
"Skaanmen star bareog blinker**, eren 
klassisk bemasrkning. Ja, del ger den, 
og det skal den ogsa. Det tager tern- 
melig lang tid at indleese disse ting pa 
band. 

Kontoplanen (tekstttlen) tager om- 
kring halvandet minut og budgetfilen 
tager cirka 4 mmutter uanset hvor~ 
mange eller fa tal, man har lagt ind! Ti- 
den for bilagsfilen er afhsngig af an- 
tallet af bilag. 

I naeste nummer afsluttes program- 
met, men programmet kan al lerede nu 
kabes i en feerdig version. 

Programmet findes pa ba\nd eller 
diskette og koster kr. 195.-. Besffl- 
lingskupon s. 63. 



I 3000 RZNxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

11001 PEN PRINT BUDGET - UNOERMENU 

1 1003 REPU* xxxtxx Mjiiutixutumun 

11010 PRINT ra.R/HOn£J':>Ui2:Y=3:i3OSUB20 
000:PRINr[ RUS/ON] PRINT BUDGET TAL 



11020 

14030 

1-1040 
'14045 

14030 
14 080 

14070 

14000 
1-1090 
14100 
14110 
M12B 
! 1203 
11231 
14203 
11205 

14210 

M270 
14 230 
14240 
1-1250 
147G0 
M?70 

11280 
M290 
H300 



X=8sY=?:GOSUB20880! PRINT"! OPSUMME 
RING AF DATA 

X-8:V=9:GOSUB2B000:PRINT"2 PRINT P 
ftA SKPERP1- 

y=8:V-l 1 : GO SUB200B0: PRINT 3 ' 

X 8 : V = 1 3 : GO SUB2B000 : PRINT '1 HOUEDN 

ENU - 

X=0:Y = 1?:I3OSUB20000:PRINTSTREG* 

X = 13: r = 72 : GOSUB20000: PR I NT I RUS/ON 

J INfJTASl 1-1 CRUS/OFFJ" 

X = l?: Vr22:GOSUB20000:GEtQt: JFQ1="" 

THENL4070 

IFQ4- T'THEN11200 

IFQ*= 2"THEN!1400 

IFOi= 3 THEN 1 4600 

IFQ* = 4" rHEW29000 

GO7OI4W70 

f7F.miimxniMinutn.Mmnn 

REtl OPSUnriERING AF UATfl 
#Ei-\t*xxxxxxxxxxxxxxxxxxix*txxxxxx 

Xal3: Y=22=GOSUB20000: PRINT"! RUS/ON 
J UENT 1 HI NUT " 

FURY =0TO ! 1 : FORX = 1 0 TO90ST EP 1 0 : BU C Y . 

X)=0:FORZ-lTO9 

BU(Y.X) = BUtY.X JtBUIY.X+Z 3 

NI-.XT7.X.Y 

r rjpy-l0rO99:BUI 1 2 ,X )=0: T ORY =BTQ1 1 
BUt 12.X)*BUU2.X)+8UtY.X 1 
NEXIY.X 

FORX'0TOI?: BUC.X . 10B 3-0:FORY=20TO90 

STEP10 

BUCX. 100 JtBUtX.IBB )t0U(X.Y) 

NEXTY.X 

FORY=0TO12;BUtY ,1D=BU(V. 10)-BUCY.1 
80]: NEXT 



14310 BUC0.23=0:REH OUERF0RI 

fW - RETTES EUT. 
11320 BUt 0.3 3=BUt 0 . I H8UC0 ,23 
14330 FORX=IT011 :Burx.2j=BU(X-l .3]:BUCX. 

3 )=BUiX . 1 3+BUCX .2 ): NEXT 
14310 GOrrjl400B 

Ml 08 R£l-\**xx*xxxx»xxxxxxxxxxxxxxxxxxxx 

11101 REfi PRINT BUD6ET0UERSIGT SKfl'EfWI 
11103 REHfoy* xxm xxxxxx'itxxxjtxxxxXxxxx xx x 

11105 I^B 

14410 PRINT [ CLR/HOflE ] *' ( IFQ1- ' I " THEN1 = I ♦ 

14411 JFQ*= --"THENI=I-1 

14412 tri>IITHENi =0 
M113 IFK0TMENI "-11 

144Z0 X=0=v = i;GOSUB20000;PRINT"'t RU5/ON3 

BUDGETOUFRSIGT ' 
11130 X^22;Y=i;GO5UB20000:PRINT "T RUS/ON] 

rmtt) 

HUB X=32:Y S l:GOSUB2B008:PR]NT"rRUS/ON] 
TOTAL * 

1 4 450 X =0 : Y =4 : GO SUB20000 : PR 1 N I T E * C 1 0 ) 
14155 X=20: V = 5: GOSU020000: PRINT" = = = = 333 = 

14460 FORI I =20TOS05TEPI 0 

I4470 X^0: Y = CiI-20^l0*0:GO5UB20008:PRIN 

rretcn 3 

l 4488 NEXfll 

1 4-190 X =20: r- 1 6: GOSUB20000: PR INT " 

14500 X=0: :Y= 17: GO5UB20000: PRINT "UOGIFTE 
R TUTAL" 

14510 X=0: Y=ia:6OSUB20000:PRINI ' JNDT." 
11520 X=29:Y=l9:GOSUB20000:PRINT" 

11530 X=0:V=2I:GDSUB20000:PR1NI OUERF0RT 

14540 X=20t Y=22:GOSUB20000:PRlNT " 



43 



14550 X = 0:Y=23:GOSUB20000:PRINTflT OUERF 

0RE" 

14590 GOSUBH708 

14608 GF1Q4:[FQ4= THEM 4600 

14600 GETU4:IF04r THEN I 4600 

14610 IFQ«= '♦"ORQ* = ' , -"THEN1-Mi0 

14615 IFO*- T'THEN14B00 

14620 GOTO11680 

1 4700 REM** k*****"*******:*******!** 

14781 REM PRINT BUDGET TftL PAA SKAERM 

1 4 -'03 REM** X«XXXXK«»3t>i*3l 111 HtJllXllIXX 

14710 BE *BUC I . 1 0 3: GOSUB20508: X=22+HM: Y-4 
:r5OSUB70080:PRlNT0Ut I , 10 3 

1 4 720 BE=BU I 1 2 . 1 0 3 : GCSUB20500: X - 32+HI1: Y = 
4: GQ5UB20800:PRINTBUi 12,103 

14730 FORI I =20TO90STEP10 

14710 BE =BUU , 1 1 y- GOSUB20508; X =22tHni Y = C 
1 1-70 V10»8:GOSUB20008:PF?INTBUCI ,1 
1 3 

BE -BU( 17.lt 3:GOSUB705B0:>C=32+HTl!Y = 
( I I-20)/10t8:GOSUB20000:PRrNTBLJC12 
.11 ) 

14760 NEXT 

14761 BE^BUCI . 100 j: GUSUB28500: X =22+HfH Y = 
1 ?i GD5UB70000: PRINTBU 1 1 . 100 3 

14762 BE=BU( 12 , 1 00 ): GOSUB205B0: X = 32 + HI1: Y 
= I ?i GOSUB20030: PR 1 NTBUC 12 . 100 3 

11763 BE=BUt 1 .10J:GOSUB20500:X=22+Hn: Y=l 

9:60<UB20000:PftlNTBU( I .103 
147^1 BE -BUT 12 .10 i:GOSUB70500:X=32+HM: Y = 

19:r.n5UB20000:PRIMTBLK 17 .18 3 
14270 BE =BUCI , 1 3: GOSUB20580: X=22+HM: Y = 28 

:GUSUB20000:PRINTBUC 1 .1,3 
14780 BE=BUC17.1 3: GOSUB20500: X =32-*HM: Y=Z 

0: GOSUB20000:PRINTBUC 12, 1 3 
1479R BE -BUt 1,21: GOSUB7050B: X=22+HM: Y=21 

: SOSUB20B00: PR INTBLK I .2 3 
14800 BE -BUt ] ,3 }:GD£UB20500:X=22+H(1:Y=23 

:GGSUB28000:PRINTBUC I .3) 
11810 RETURN 

20510 I FOBS ( BE 3 < 1 0 THEN HM=5: RETURN 
20570 IFABSCBE X100THEN HT1=4: RETURN 
20530 IF ABS t BE J< 1 000 THEN Hfl-3: RETURN 
20510 If ABSCBF X10000THEN HH -2: RE TURN 
20550 IFABSCBE X100000THEN MM= I : RETURN 
20560 IFABSCBE 3<1000000THEN HM "0: RETURN 
79080 X=2: Y-9: GOSU020B00: PRINT ' 3) PRINT 
rtF BUDGET TflL 

29210 ONQaGOTOl 1 000 . 1 2000 . 1 -1008 .,29 

300.29300.29999 



PRI VATREGNSKAB DEL 3 

10019 DSTRtG* = * ^: = 



II 530 CL05E I; RETURN 
ll58e CLOSE i:RElURN 
II 630 CLOSt I : RE I URN 
l S680 CLOSE I : RE TURN 

1 4040 X = 8:Y-ll:GUSUB20080:PRlNT"3 UDSKRI 

FT PAA PRINTER" 
14100 IFQ1= 3 T-HEN15000 

15000 REM** *» xrxxxxxx* mxxxxxxixxj: 

15001 REM PRINT BUDGETTfll PAA PRINTER 
15003 REM^xxxxaoixxxxxx***** iiiijimixixj 
15010 PR4 = ■:0PEN1.4:PRINloI.CHR4C!43 
15020 PRINT»1 . "BUDGETOUERS I GT I. HALUAAR 

:PRINI»1 .CMR*C15> 
15030 PR4=HJ4*-' JAN. FEB. MARTS ftP 

R1L MftJ JUNI" 
15010 PRINT "1 ,PR*:PRINT»I:PR*="" 
13850 FURX=10TO90STcP10:FORY=lTO9 
15060 FR4=TE4tXtY ):FDR2=0TO5 
15070 BE=BUl?.?MY):GOSUB20500:BE*=STR*rB 

E3:Mt1t=LEFT*tHJi.HM3 
15883 PR4=PR4+HI14*0E* 



I 5098 NEXT? 

15100 IFUALtPR4)08THENPRJNTal.PR4 
15105 PR4="" 
15110 NEXT Y 

15120 PRINTol ,STREG4 »STREG* 

15130 PRi=TF4CX3:FOR?=8T05 

1 5110 BE^BUf.Z.X3: GOSUB20500:BE4=5TR4C8E 3 

:HM4=LEFT4tMJ4 .HM 3 
I5150 PR4=PR4-t-HM4TBE-4 
15160 NEXTZ 

15165 I F UAL t PR4 i < >0THENPR I N T • l ,PR4 

15166 IFUALIPR4 JM0THENPRINT"! ,DS4»DS4:P 
RINTnl 

151G? PRINT"! 
15IS8 PR4= 
I51/0 NEXTX 

15180 PRINT"! .OS$+DS*:PRlNr«I 
15190 PR4 = 'UDGIFTER TOTAIT: 
15200 F0R2=8T05 

152 10 BE=BU(2. 100 ):G0SUB7858B: BE4=STR4(B 

E3fHl14=LEFr4CHJ4,HM) 
15220 PR4=PR4+HM4*BE4:NExTZ:PRINT"i .PR4: 

PR4 = "' 
15230 PR4= ' I NOT . TOTftLT: 
I52ie FOR? -0TO5 

1 5250 BE rBU t? , 101: GOSUB20500 1 BE4 = STR 4 1 BE 

3:Hf1*-LEFT4£HJi,H(1J 
15260 PR4=PR4.-HM4tB£*:NEXTZ:PR!NT"l .PR4: 

PR1=- " 

15270 PRINTS .STREGt-fSTREG* 

15280 PR4H FFTtlHJt.20 3:FuRZ*0TO5 

15290 BE-BUlZ. t ):GOSUB20500:8E4-STR4tBEJ 

:MM4-|.ef T 4 f H J t . HM 3 
15300 PR4-PK4f-Hri4tBEV.NEXTZ:PRlNT*l ,PR4: 

PRi="- 

15310 PR4; "OUERF0R- ':FOR2=0T 
05 

15320 BE =BU C 2.2V. GO5U820503 : BE 4 =S TR4 C BE 3 

: HM4-LEF T4 CHJ4- ,HM 3 
15330 PR4rPR4tHM4*BE4:NEXTZ:PRlNT"l ,PK4; 

PR4= " 

15448 PRINT-l ,STREG*tSTREG4. 
15450 PR4=-AT OUERF0RE :FORZ=0T 
05 

15460 BE=BU[?.33: GOSUB20500: BE 4 =S TR*\B£ J 

: HMi=LEF T4IHJ4 ,HM 3 
15470 PR4=PR4tHM4*BE4:NEXTZ:PRlNT*t .PR4: 

PR4 = '* " 

15480 PR INT HI .DS4 fDS*: PRINT* 1: PRINT" 1 
15528 PRINTMiPRlNTtU .CHRiC 1 4 3 "BUDGE TOUE 
RSIGT 2. HALUAiAR' :P«INT»1 .CHR4C1S3 
15538 PR4=HJ4t JULI AUG. 5EPT . 0 

, KT. NOU. DEC. TOTAL " 
15540 PRlNTnl .PR4:PRlNTnl:PRir • 
15550 FORX--10TO90STEP10:FDRY = 1 TQ3 

15560 PR4=TE4(X*Y3iFORZ=6T012 

15570 BE=BUt2.X»Y ): GOSUB20500: BE* =STRitB 

E3:Hn4=LEFT4CHJ4.HM3 
15580 PR4=PR4+HM4*BE* 
•15590 NEXIZ 

15600 1FUAL1PR4 3O0THEMPRJNU1 .PR4 
15605 PR4= *" 
15610 NEXT Y 

15620 PRINT»1 ,STREG*-t-STREGl 

15630 PR4 = 1E4(X3!F0R2=6T012 / 

15610 BE =0U C Z . X I : GOSUB20500 : BE 4 =S T R4 t BE J 

:HM4=LEFT*CHJ1.MM3 

15650 PR4=PR4*HI1*+BE* 

15660 MEXTZ 

15665 IF UAL £PR4 J', >8THENPRI NT" 1 .PR 4 

15666 IFUALfPRt3 = 10THENPRINT«l ,0S4-t-DS4:P 
RINTol 

15662 PRINT" l 

15668 PR4= ' 

I 5670 NEXTX 

15680 PRlNTnl . LJS4 ♦05*: PRINT " l 

I 5690 PR4 = -UUGIFTER TOTRLT: 




=6T012 

1 5710 BE =BU CZ . 1 00 J: GOSUB20500 1 BEt =STR* CB 

E J:HH4 =LEFT*f HJ4 ,HM 3 
15?2B PRi=PR*tHM4+BE*: NEXT2: PR I NT" 1 .PR*: 

PR*='" 

15730 PR* = "INUT. TOTAL T: 
1S740 F0RZ-ST012 

15750 BE=BUCZ. 1 0 3: GQSUB205001 BEt =STRt ( BE 

15760 PR 4 =PR*tHf1*-»BE*: NEXT?: PRINT*" 1 .PR*: 
PRt = 

15770 PRINT* 1 .STREGt+STREGt 

15780 PRt=LFFTtCHJ*,20);FORe=6TO12 

15790 BE=BU(2.l 3: GOSUB20500: BE*=STRt tBE 3 

iHfltM.EFTttH.lt ,HM3 
15800 PR4=PR4>Ht1*iBE*:NEXTZ:PRiNT»l .PR*: 

PRi = " 

15910 PR* = "OUFRF0RT ":FORZ=6T 
Oil 

15820 BE=BUCZ.23:GOSUB20500:BE*=STR*1BE J 

:HM* -LFTTtf HJ t ,Hf13 
15830 PR*--f»R*iHM*+BEt:NEXTZ:PRINT"l .PR*: 

PRt -- ' " 

15810 PRlNlnt „STREG*<-SrR£G* 
15950 PR*: "AT OUERF0RE ":FORZ=6T 
Oil 

15960 BE =BUC 2 .3 J: GOSUB205BB: BE*=S1R* EBE J 

:HrK=L&TT*lHJ*,HMJ 
1587B PR* ^'W*»HI1*»BE*:NEXT2:PRINT»1 .PR*: 

PRt r" ' 

15880 PR INI si .DS**DS* 
15890 CLOSE 1 
15908 GOrOM(300 

16801 REM BILLEDE TIL BILfiGSlNDTASTNlNG 
I6B03 REn«**«>"*>»***;»;»*»***;xxxxj;xx* 
16810 PRINT "L CLR/HUflE 3 : X = 10: Y =3: GOSU828 

000! PRINT '[RUS/ON] INDTASTNING AF 

BILflG" 

16820 X=3:Y=7:GOSUBZ0B00:PRINT[RUS/ON31 

J INDTAST AAR 
16030 X=3:¥=8:GOSUB20000:PRfNT [ RUS/ONJ? 

J INDTAST MAANEO : " 
16300 XO:Y--9:ROSUB20000iPRlNT '[RU5/ON-]3 

3 INDTflST OATO : " 

16850 Xr3: Y = l 1 :GOSUB20000: PRINT "[RUS/ON] 

4 ) INDTAST KONTO : " 

1606.0 X=3:yH 2: GQSLIB20008:pRINT't RUS/ONJ 

K0NT0FEK5T I " 
16020 X ~3* Y = 11 : GQSUB2Q800J PRINT "L RUS/ONJ 

53 INDTAST TEKST :" 
160B8 X=3:Y = 15:GOSUB28000:PRINT '[RUS/ON] 

63 INDTAST BEL0B 
I6090 X = 3: Y = 37tGOSUB20000:PRINT [RUSxONJ 

73 BETnLlMGSplAAOE " 
16100 X=3:YO8:GOSLIB20000:PRINT IRUS/ONJ 
C RCJS/OFFlKt RUS/UNIONT ,/t RUS/OFF ]C 

C RUS/ON IHECK/T RUS/OFF JGt RUS/ON ] I RO 

I 

16U0 X=3: Y=20: GOSUB20000: PRINT 'I RUS/ONJ 
At RUS/GFFKCFPTERES/f RUS/ON3RCRUS/ 
OFF 3ETTtS,-t RUS/0N3SC RUS/OFF JLETIES 



16120 
1 61 24 
16125 



16126 
16127 
lei 29 
1QI29 
16130 

16339 

16100 



IFN<ITHENN=1 
IFN>irHEN16130 

IFN=1THEN*=3: Y =22: GGSUB20000: PRINT 
"tRUS^ON] INDLAESNING AF B I LAGSF I L 
E J/N - 

GFIOt: IFCJ*--- THEN16126 

I FQ* - ' J " THENQk = 1 0: GOTO29308 

1FQ4<>"N"IHEN16126 

GOSUB20100 

PRINr'tHOMEJt RUS/ON 3 POSTER I NG NR . : 

"W 

X=23: Y=7:QOSUB20000:PR3NTni*I i 3: IF 
N>1 THEN16439 

X = 2l: Y=7:POSU628000: INPUTQ* 



irUALCQS 3<1988OR0f 

400 

16120 IFLEN f Q* "K >4 THENl 61B0 
16130 fllttl 3=0-*: fjir 

16433 X-23: Y-=8:GO£UB20080:PRIN1|1I*<73: IF 

NM 1HEN16179 
16440 X=71 : Y =8: GOSUB20000: INPUTQ* 
1 61 50 I FUAL ( Q* 3 < l ORUrtL ( B* 3 > I 2THEN 1 6440 
16163 IFLENCQ* 3O2THEN16440 
16473 rii*(2 3=Q*:Otr-'- 

16173 X : 23:Y=9:GOSUB20000:PRlNTt1I*C3);nl 
4t33 = --' 

18480 X=2l:Y=9:GOSUB?0000: INPUTQ* 
16490 IFUALCO* 3< 10RUAL ( «1 J>3ITHEN1 6480 
16500 IFLENCQ* 3O2THENI6180 
16510 ni*(3) = G*:Q*r"' 
16520 X=21: Y = l I ; GO5U&2B000; INPUTQ* 
1 6530 IF UAL I Q* 3 < 11 ORUAL t 0* 3>99THENI 6520 
16540 it- INHUAUQ* 1/10 3* 10-UALIQ* J-0THEN 
16528 

15550 IFi.eN[Qt)O2TMEN16520 
16568 Ml 4C1 3=04:0*-- 

16570 X=2i:Y=l2:GQ5UB200e0:PRINrRlGHTiiT 

E*CUALCrtI*C4 3 3 3,l83 
1 6588 X=2l:Y = l4:GOSUB20000: INPUTOt 

16590 IFLENCQ* .3<l 2THENQ* =Q*+LEFT4( HJ4 , 1 2 
-LENCQt 3 3 

16591 Q*=LEFr*tG4.l2> 
3G500 MMC53=Ot:0* = 

16610 X=21:Y=15:GOSUB20088: INPUTQ* 

1 6620 I FABS C UAL fQ* ) )> 999999 . 99THEN 16610 

16621 Ql =STR*(UAL C Q* 3*1 08 3 . 

16622 Q*=STR*( INTCUALCO* 333 
16677 GOsUB28400 

16630 fii*t63 = SrR*rUALCQ* 3/100) 
16610 IFLEFT*(RIGHT*tnl*l6j. 33, l )=*•." THE 
N16B70 

16650 IFLEFr*tRIGHT4[ni*(6).23.n = "."THE 
NMI*C6)?f1ItC63*" , 8 :GOTO16670 

16660 nitte j=nrtce )+- .00" 

16670 ni*C6 3=LEFT*CHJ*.10-LENCf1I*CG33 3H1 

IH63;Qt=" 
16690 X:21:Y=18:GOSUB20B80: INPLHU* 
16698 iFLFNfOtXJl THEN16680 
16700 IFQtO K "ANUQ*<> 'C'ANDQtO 'G 1 THEN1 

66B0 

16710 HI*C75 = Ql:at = "" 
16728 X-21:vr2i :GOSUB20000 
16730 GETQ*: 1FQ*= "rHEN16730 
16740 IFQtT-fl" THEN 16760 
16758 IFQ1="R "IHFN 16339 
16760 IFQiVS THFNN=N-l:G0TOl67ei 
16770 GOTA16720 

16775 !FW<IBTHENN* S " *RIGMT*C STR*tN 3 . 1 



+RIGHT*CSTR*tN 1 ,2 



3:GOTO16780 

16776 IFN<I0'0THLMN* = 
3:001016780 

16777 N*=RlGHT*tSTR*£N3.33 

167B0 BI*CNJ=ni*Cl 3*«l*(2)*f1I*C33fni*(4) 
t|11*t5 3tni*[7 3»N*^ni*C8 3 

1 6781 X =3 : Y =20 : GOSUB20000: PR I NT " [ RUS/ON ] 

FLERE POSTFRJNGEP J/N 

16782 GElQt: IFQ*= THEN1C782 

16783 IFQt = "N THENN = N+ 1 : B [ *CN ) = "* " : GO T07 
9000 ^, 

16781 !FQ*="J THENI6790 

167B5 G0T016787 

16790 N=Nfl:GOTOl6000 

17008 REM«xi>*fc«*»********XSe***XXXX**X* 

17081 REM SAUExlOAD BILAGSFRER 

1 7003 RZ»xxKxx*rxxxzxxx**xxxxxxXxxxxxxx 

17010 FM-ni llttBI* 11 3.5.23:FI=UALCFI* 3 

17070 0PEH3.8.4 ."ofl: "+MD4CFI-1 .S.U" 

17030 1:1 

17010 PR]NT«3.N 

17050 PR]NT«3.BI*C IJ 

17060 IFBItL M= " 1HEN17C8R0 




i?\m 

17119 

I7i2a 
i7i3a 

17140 
17150 
17160 
17170 

17200 
17213 
17220 
17230 
17240 
17250 
17260 
172/0 
17283 

17390 
17313 
1 73?rt 
17330 
17340 
17350 
17360 
17800 



17BI0 
17920 
29090 

23140 

29210 



29211 
29336 

29337 

29330 

29339 

29340 
29350 

23360 
29370 

2937'j 
29380 



29399 
29400 
29410 

2942a 

29430 

23440 

29450 

29460 

29470 



1*1 : GO TO 17050 

CLOSES:* op I - 1 TUNt BliU 3^-JNEXT 
N=Ulij't.fl» :MIU2 J= :ni4C3D = "' : 
RF TURN 

GO SUB 1 7900: UPF.N3 .8 .4 ,F I i+ ' .S ,R" 
1M 

INPUT*3.N 
INPUT*3.BI*n i 
IFBIiCI )- '** THEN17160 
1=1+1 :GOTO17130 
CLOSE 3 

III it 1 )=LEFT*tBliCl 3.4 3:MltC2 )=MiDi 

fBI*( 1 J,5.23:RETURN 

Fl i=MIDiCBI*(l 3,5.23:FI =UW_CFIi>3 

0PEN3,l,l ,nn*CFI-l 3 

1 = 1 

PRINT-3.N 
PRINT*3.BI*U 3 
IFBIiCI )-"x" THEN 1 7 270 
1=1+1 :130U1 17240 

fLOSnsFORI -irON:Bl*l 1 J*" ':NEXT 
N=t:nitl I ]=" :f11*(20= "sriI*C33= ~: 
RE TURN 

GO5UB!7800:OPEN3.1 ,0.FIi 
I-I 

INPUT»3.N 
iNPUT*3.BiiU 3 
IFB1U I )="** THEN17368 
IM'1;GOTO17330 

CL0SE3 

GOSUB204B0:X=9: Y=22: GOSUB20000: PR! 

NT '[RUS/ONJ 1NPT*5T fWfiNEO NR . : t RU 

S/OFF)-; : INPUTFI 

IFF I < 1 flNDF I > 1 2 THEN 1 7800 

FI*=MO*CFI- 1 3: RETURN 

X=2:Y = 10:(3OSUB20080:PRINT" 4J INUT 

fiSTNlWG AF BILAG 

X=2:Y=15=GOSUB20B00;PRINT" 9) PRIN 
T FREE MEMORY 

ONQKGOTf) 1 1 000 . 1 2000 . 1 4008 . 15000 . 29 
008 . 29000 , 29000 . 29000 . 29900 . 29300 . 
2921 I 

□NQ/i - 10GOTD29300 .29999 

X=12: Y=10:GOSUB20000:PR[NI-2 3 TEKS 

TFILE " 

X=12:Y = 1 2: GOSU920000: PRINTS) BILfl 

GSFIl.F." 

X = 1 2 ! v = 1 4 : GOSUB20000 : PR I N T " 4 3 ALLE 
FILER" 

X= 12: Y= 1 B: GOSU320000: PRINTS 3 HOUE 

DWENU" 

X=0: Y=20:GOSUB20000:PRINTSTREGi 

X=12:Y = 22:GOSUB20000:PRINI C RUS/tJN 

] INHTftST 1-5 " 

GETQ*: IFCJi=""THEN-293B0 

IFOt <> ' 1 " ANDQi<>"2 ANOQi <>"3 flNDQi 

<> 4 "flNDUtO' '5 THFN29360 

IFQt? "5" THEN29000 

X-2:Y=22:Bt>SUB20800:PRINI [KUSAJN] 
[RUS/OFFJUSUS/ONIAPE ELLER CRUS/ 
0FF3DI RUS/0N1 ISKETTE - INOTRST X/0 



k root 

IFQQi < 
IFQQi = 
B I 3550 
IFQQi - 
B 1 3580 
[FOO* p 
Bl 1550 
IFQOt= 
BI 1580 
IFQQi: 
617108 
IFQQi; 
Bl 2000 
IFQQi = 



iWQQis" THEN29390 
>"T ftNOQQiO D' - THEN29390 
0' ANDQ* = 1 8ANDQ4 = ' 1 "THENGOSU 

'D ANDGx=l IANDQ*:" 1 "THENGOSU 

"0 ' ANDGx - 1 BANQQi - " 2 " THENGOSU 

"D "ANDQ* = 1 1 ANUO* a "2"THENGC)SU 

ANDQx = 1 0ANDQ* = " 3" THENGOSU 

"D"ANQQk = 1 1 ANDQ* : " 3" THENfiOSU 

T *flNQQx = 10ANDQ* = " 3 "THENGOSU 



29480 IFQQi \ "ANDO« = I 1 ANOQi = " 1 "THENGOSU 
B 1 3600 

29490 IFQQi: t ANDQx r | 0ANDQi = "2 " THENGOSU 
Bl 1650 

29580 IFQQi = 1 ANDQx = 1 IANDQ*= 2 'THENGOSU 
Bl 1630 

29518 1FQQ* : T ' ANPQx = 1 0ANDQ i = '3" THENGOSU 
B 17300 

29528 IFQQi = " T ' ANDQx= 1 1 ANUQ i = 3' THENGOSU 
B17200 

29533 IFQQi ="0 ' ANDUx = 10ANOQ »= 4 THENGOSU 
Bl 3550: G0SUB1 1550: G05UB17 108 

29548 I FQQi = " T "ANDQx a 1 I ANOQ i = " 4 THENGOSU 
Bl 3D00: G0SUB1 1500: 605UB1 7000 

29890 GOTO29300 

29900 PRINT '[ HOMElt RUS/ONJFREE tfErlORY: F 
REC0 3- CFRE( 0 3<0 )*65536*T CRSR/LEFT3 
BYTES" : GOSUB20400: G0T029B2Q 



KONTROLSUM FOR PR JUATREGNSKAB 3 



1 00-* 9 


1 07 


1 1530 


LB5 


■ 1 H ■< 1 


1 1630 


1 AS 

1 OJ 


1 1580 


185 


1 flOdfl 1 '3d 


1 4 1 08 


1 98 


15080 


123 


t CQO 1 -;t 
1 1 *+D 


1 5003 


1 73 


15018 


210 


IVOitl I/O 


15030 


75 


15048 


180 




15060 


177 


15070 


40 




1 5890 


228 


15100 93 


15185 3 88 


15110 


2S1 
— i 


15120 241 


1 m 1 7A 


| J1HJ 




15150 


246 


1 R 1 RQ 

131 Olo &/.Y\ 


! 5 1 H5 


Zm j 


15166 57 


l3lt3/ /Ml 


1 5 1 RP 


1 DO 


15178 


218 


1 ^ t DO "Jil 


1 J 1 -JO 


7P0 
. >. i > 


15200 


150 


13/10 3Q 




£1/ 


15238 


43 


15740 130 




45 


15760 


247 


15270 241 


1 J/tJO 


16j 


15230 


254 


15300 247 




1 00 


15320 


255 


1533B 247 


1 3440 


24 1 


15450 170 


15460 0 


15470 


24? 


15480 27 


15520 51 


15538 


224 


15540 


1B0 


15550 215 


155F3B 


229 


15570 40 


15580 246 


15590 


220 


15600 


93 


15605 188 


15618 


251 


15620 


241 


15630 226 


15640 


37 


15650 


246 


15668 220 


15665 


93 


15666 


57 


15667 201 


15668 


188 


15670 


218 


15680 24 


15690 


200 


15700 


202 


15710 94 


15720 


247 


15730 43 


15740 202 


15750 


46 


1 5768 


247 


15770 741 


157B0 


217 


15798 


254 


15800 247 


I5B10 


151 


15820 


255 


15B30 247 


15840 


241 


15850 


221 


15860 0 


15870 


247 


15S80 


21 


15890 209 


13900 


126 


16000 


123 


16001 180 


16883 


123 


16010 


248 


16820 186 


16030 


4B 


16040 


242 


16050 95 


16050 


247 


16070 


99 


16088 31 


16090 


93 


16100 


10B 


Ifillfl 216 


16120 


t49 


16124 


93 


16125 23 


IG12B 


237 


16127 


49 


16128 157 


16129 


131 


16130 


83 


16399 86 


16400 


214 


16410 


5 


16420 78 


16430 


8 


16439 


92 


16440 215 


IB450 


239 


16460 


80 


16470 9 


16479 


37 


16480 


216 


164 90 244 


16500 


B4 


16510 


10 


16520 1 


I 6530 


46 


16540 


244 


3 6550 79 


16560 


1 1 


1657B 


I 79 


16580 4 


16590 


169 


16591 


68 


3 6600 12 


16610 


5 


16620 


105 


16621 4 


16622 


205 


16627 


131 


16630 209 


16640 


138 


16650 


1 58 


16660 176 



16670 


223 






16690 


85 


16700 


193 


16710 


14 


1 6720 


206 


16738 


238 


16748 


228 


16750 


251 


16760 


228 


16720 


137 


16775 


137 


16776 


154 


16772 


0 


16780 


203 


16781 


13 


16782 


24S 


I67B3 


122 


16784 


238 


16785 


145 


16790 


227 


17000 


123 


17001 


113 


17003 


123 


17010 


180 


17020 


187 


17030 


44 


17040 


69 


17050 


64 


17060 


155 


17070 


223 


17080 


225 


17090 


64 


17108 


39 


17110 


44 


17120 


49 


17130 


44 


17140 


154 


17150 


222 


17160 


211 


17120 


148 


17200 


180 


17210 


41 


17220 


44 


17230 


69 


17240 


64 


17250 


156- 


17260 


224 


17270 


225 


12280 


64 


17308 


49 


17310 


44 


17320 


49 


17330 


44 


17340 


156 


17330 


224 


17360 


211 


17B00 


203 


17810 


247 


17820 


158 


29330 


150 


23 1 40 


255 


29210 


6 


2921 1 


220 


29336 


9 


29337 


51 


29338 


28 


29339 


18 


23340 


22 


29350 


2 


29360 


241 


29370 


130 


29375 


205 


29380 


245 


23390 


150 


29400 


92 


29410 


64 


29120 


60 


23430 


63 


29440 


59 


29450 


61 


29460 


61 


29420 


81 


29480 


77 


29190 


80 


29500 


76 


29510 


79 


29520 


79 


29530 


198 


29540 


204 


29990 


135 


29900 


98 ' 







V1CMAN. VIC20 

1 G0SUB5999 

5 TI*="008000":PQ=0 

10 REM UICMAN 

20 REM*x(C IE 1" RUN PROGRAM 

30 PRINICHRU147) 

60 PRINT MUCR DVGT1G ER GU ? I CRSR/TJQWN 

] (1-31 3 ER LEI TEST ' 
70 INPUT U: PRINT 1 CLR/H0ME J 
80 ON U GOTO90, 1 00. 1 10 
90 K=250:GOTO1?5 
100 K=100:GOTO125 
110 K=50 
125 GOSUB1000 
130 A =7698 

135 POKE7690.8i:POKE38400f 10.2 

140 PORY-t TDK: NEXT Y 

141 PRINT [ HOME 7 " I 

142 PRlNTRIGHTtrm .4 ): ■ 'IPO 

143 IF TI$= "000300 THEN 4000 
150 GETAi: IF/H=" "THEN150 

163 IFfttO'Q "ANDA*<> 'A ANDA*<>' g ANDA*<> 

"P-THENIS;. 
170 IF** = 0 THENR=-22 
180 IFni= ATHENR=22 
190 !FF»t= W ' THENR =- 1 
200 IFn*= E 'TMENR = 1 
210 <J=PEEKCA*-R) 
220 PDKEA.32 
230 A^fl»R 

248 P0KEA.81: POKEA*30720,7 

250 IFU = 1,60THEN3000 

260 IFU=46rHEN270 

265 GOTO30Q 

270 POKE36876.250 

275 P0KE36879.15 

280 POKE36876.0 

290 P0=P0tl 

300 !FPO>299rHEN«250 

305 I FT I * = 808380 ' THEN4200 

310 GOTO140 

1000 PRINT CHRH 147 1 



1010 FOR I -7690708 1 85 

1015 IF! =>?690TMENt065 

1015 !FI =7630t40ORI =7690*1 THEN1040 

1820 U = !Hrt3xRN0Cl ) )*t 

1030 ONUGOTO1810, 1040. 1850 

1040 G=46tL=L+3:GOTO1060 

1050 G=160 

1060 POKE I .G:PQKEIt30720,2 
10B5 NEXT I 

1070 T I* = "000080 : RETURN 

3000 PRINI fCLR/HOMEJ * 

3001 FORQ--101O0STEP-1 . 

3002 P0KE36828.0 

3003 FORM ■ 1 TO3B0: NEXT M 
3084 POKE36877.220 

3005 NEXTQ 

3006 P0KE36B72.8 
3087 P0KE36878.15 
3010 PRINT DU ER O0UI 

3020 PRINT DU FIK POPOINT 
3025 FORT=1TO!080:NEXTT 
3030 GOT 05 
4000 PR I NTCHR1C 1 47 ) 

4200 PRINTTCLR/HOME3TIDEN ER L0BET UDI" 

4210 IFP0>299rMEN4259:END 

4220 PRINT 'I CLR/HOMEJOU KLAREDE OET 1KKE 

l":G0T04225 
4225 PQKE3687B.15 
4230 FORI. = 130TO254 
4235 P0KE36876.L 

4240 FORr-lTO40 

4241 NEXTM: NEXTL 

4242 POKE3687B.0:POKE36976.0 

4243 END 

4250 PRINT"! CLR/1I0ML3BRAU0 DU KLAREDE DE 

T, OG FAA ET SPIL TIL I 
4255 K=K-25 

4260 G0TCJ426I 

4261 P0KE36878. 15 

4262 FORL - 1T01 5 

4270 FORM=200rO220*LK2 

4280 P0KE36876.M 

4290 NEXTM: NEXTL 

5000 POKE36879.0:POKE36B78.0 

5810 G0T05 

5999 P0kE36879.9:PRINT"CVELr :"tCL(?/HOME 

6000 PRINT * [L0GOxTx33 q= 0 P 

t LOGOUT ■ 161 

6010 print " [l0go/t*53 a=ned 
i:logo^t*bj ■ 

6820 PRINI' fLOG0/T*2] 

6830 PRINT rL0G0/Tx2] W=U£NSTRE 

6040 PRINT I L0G0^T«3J [ SHIFT/ST 
CLOGO/TK93 
E=H0JRE 
6050 PRINT r L0GU/r»6] 

6060 PRINT 

6870 PRINT' fRUSyONjUlCMAN; PRINT 
6071 P0KE36878. 15: FORL=-250TO200STEP-2 
0072 POKE 36876 .L : FORM = I TO 1 00 : NEXTM 

6073 NEXT L: FORI. =205TO250STEP2 

6074 POKE36876.L:FORM = ITQ1B0:NEX™:NE.VTL 

6075 POKE36876.8:POKE36B78.0 

6800 PRINT* (CRSR700UNJCRUS/OFFJTRYK f_ N T 

AST NED FOR C CRSRxDQWN ]AT STARTE" 
CP30 GETfl*: IFAir ■ 'THEN6090 

6 1 00 POKE 36879 . 23: PRI NT " C CLR .--HOME ] C LOGO/ 

T ] ": GOTO60 



47 



Programtest for Commodore 64: 

SELVANGIVELSE 1984 

Af Jorgen Jorgensen 



Selvangivelser er noget en vis mand 
har skabi. Del syries i hverl fald el 
mange danskere. De Ileste sidder da 
ogsa den sidste aften og bander og 
svovler. Derimod gnider de siressede 
revisorer stg i ha^nderne og bnnger 
hjselp lit mange nodstedte. 

Siden sidste ar har rtjemmecompu- 
teren holdt sit Indlog i mange hjem og 
den Iravle og torjagede revisor har nu 
muiighed for at blive erstattet med en 
diskelte eller et band. 

Fra firmaet REVI-SOFThar vi umid- 
delbari far bladet gik i trykken modta- 
get et selvangivelsesprogram til test. 
Tiden til gennemgang af programmel 
har kun vaeret kort. og selve program- 
mel var heller ikke endeligl afpudset, 
hvllkel naturligvis vil ske inden pro- 
gramme! gar i handelen. Del er revi- 
sionsmeessig ekspertise, der ligger lit 
grund (or programmed og min viden 
pa detle omrade har derlor ikke kunn et 
sEette nogen linger pa den side af sa- 
gen. 



Programmel sa?rter computeren I 
den talmodige revisors sted. Man Oli- 
ver prassenterei lor el hav af spergs- 
mal. der besvares med el ja/nej, en 
kort tekst eller et belob Compuleren 
hverken rysier pa hovedet eller trask- 
ker pa smilebandet. Sporgsmal og for- 
klarende tekst kcrer hen over skasr- 
men. Irtd imellem ma computeren dog 
traskke vejrel ved at indlaase en ny 
stump program, idet programmel er 
for stort til at vaare i computeren pa 
een gang. 

Selve programmel er kedeligt som 
Statstidende - Ingen grafik og ingen 
opmuntrendemelodier Deterselvfol- 
gelig heller ikke del. man betaler for. 

Principielt er programmet delt i 10 
deie. En del til udlyldelse af selvangi- 
velsen og en del til beregning af 
(rest)skatten {samtlige kommuneskat- 
teprocenter ligger i programmet). 

Begge programmer slutter med en 
mu lighed fo r at fa resullaiet s krevel ud 
pa en printer eller pa skaermen. Med 



hensyn t*l printeren er det skrevel til 
MPS 801 . men fungerede udmserket 
pa min 802'er. 

Jeg kcne programme! Igennem 
med to vidl forskellige fikiive eksem- 
pler Jeg skal eerligt indromme, at jeg 
blev imponeret over, sS fyldestgeren- 
de programmet egentlig er Det klarer 
uden tvivi de fleste menneskers be- 
hov, og selv kab og salg af fast ejen- 
dom klares uden problemer. 

Jeg ved ikke hvad revisorbistand ko- 
ster I dag. men programmet kosier 
495 kr. Det kan synes dyrt. nar man be- 
taanker, al det kun kan anvendes for 
1984, men det skal ikke bruges til ret 
mange selvangivelser, far regnestyk- 
kel ser mere rimellgt ud Endelig ma 
man ikkegiemme den eventuelle skal- 
temasssige gevinst. der kan ligge I en 
korrekt udfyldl selvangivelse. 

Jeg herer til de mennesker. der sid- 
der den .sidste aften, men med dette 
program, ser jeg lidt mere fonrsst- 
ningsfuldt pa sagen 



Mange sprites 



Af Bjame V. Jensen 

Hvis du har prevet at legne sprites, sa 
har du sikkert bemaarkel , at de normal! 
kun kan gemmes fire steder (hvoraf de 
tre er i iape-bufferen): Sprite-blok 11. 
13. 14 og 15. 

Man kan nemt fa brug for mere end 
fl re sprile-billeder. isser hvis man vil la- 
ve »levende« sprites. Det kan f.eks. ge- 
res ved al tegne den sa mme figur vist i 
flere forskellige stillinger, og sa vise 
dem pa skift. 

En al maderne al skabe plads til fle- 
re sprites pa, er al reservere plads in- 
den programme! Indtastes eller loa- 
des. Dette kan geres ved at skrive; PO- 
KE 4096.0:POKE44,16:NEW. Derved 
flyttes BASiC'en sa omradet fra adres- 
se 2048 til 4095 frigeres til lagring af 
sprite-data. 

4fi 



Du kan nu benytie spriie-blokkene 
32 til 63 (d.v.s. 32 ekstra sprites). Tal 
mellem 32 og 63 kan nu Pokes i sprite- 
pofcnterne (adresse 2040 111 2047) for at 
henvise til det nye omrade med sprite- 
data. Sprite 32 starter i adresse 32*64 
= 2048, spriie 33 starter i adresse 
33*64 =2112 osv. 

Som far nasvnt skat man, hver gang 
et sadant program skal bruges, reser- 



vere plads inden programmet loades 
ind. Del kan enten gores manuelt. eller 
med nedenstaende III le program som 
Torst reserverer plads. og derpa loader 
og run'er dit sprite-program. Du skal 
eandre ordel »navn« i llnie 2 til navnet 
pa dit sprite-program. Hvis du bruger 
bandoptager. skal 8-tallel t linie 2 een- 
dres lil 1 . 



1 REH SPRITE-PROGR*M-LOADER 

2 PRlNTCHR*! ll^VLOnU' CHR4C34 rNAUN'CHR* 

tan r ,8 ■ 

3 FORI =firn5:REnDA:P0KE631f I ,n: NEXT 

4 POKE4096 ,0:POKE198 ,6:P0KE44 . 16: NEW 

5 OftTAtg t 13,82.85,?8.l3 

6 REM SPRITE 32 - SPRITE 63 KAN BRUGES 
? REM SPRITE 32 STARTER I ADRESSE 2018 



Business Applications 
for the Commodore 64. 



Techniques and subroutines for busi- 
ness users. Af James Hall. 200 sider. 
Sunshine books, 1985. 

Dette er en anden bog Ira forlagel 
Sunshine Books. Forfatteren har vas- 
rel mdviklet i mdfering af edb i en af de 
storre afdellnger pa et kendl skotsk 
untversilel, og har udviklet de teknik- 
ker der er brugt i denne bog. 

Bogen er en gruppe af sammenkee- 
dede programmer og subroutiner der 
kan kombineres pa forskellig made, at 
skaffe et privat regnskabssystem. 
tekst-behandling program, lager sty- 
ringsmodul, og kartoteksprogram. 

Bogen der starter med en kort ind- 
ledn ing. gar derefter over til at forklare 



de principper, der er brugt i de pro- 
grammer, der vil blive gennemgaet i 
de efterts&lgende kapitler 

Kapitel 2 indeholder hovedpro- 
grammet. Dette bestar af en samlmg 
al subroutines Kapitlet er en tredjedel 
af bogen. De felgende kapitler De- 
handler tilfajelser og aendringer lil de 
almindelige subroutiner, som ved 
kombinatlon aendrer subroutiner til det 
ovennaavnte nyttige program. 

Subroutiner giver ikKe kun mulighed 
for alternative programmer for de der 
bruger diskette eller bandstation til op- 
bevanng, men ogsS til programmer for 
forskellige slags printere. 

Alle programmerne er skrevet i Ba- 



sic og lette at benytte. Efter hvert pro- 
gram er der kommentarer der forkla- 
rer programmets opbygning trln for 
trln. I Dogens appendix foreslSr bo- 
gens forfatter, at man pa grund af pro- 
grammernes lasngde og den lang- 
somme udferelse, skulle benytte den 
kommercielle compiler eksempetvis 
PETSPEED. 

Denne bog kan anbefales til alle, 
der kan benytte deres Commodore 64. 
og som ensker at fortsaatte og udvikle 
deres programmeringserfaring ved at 
udvikle fornuftige programmer. 



Commodore 64 Disk Companion 



Essential routines tor commodore disk 
users. Af David Lawrence & Mark Eng- 
land. 150 sider. Sunshine Books, 1984 
Denne bog fra forlaget Sunshine er 
den 12 1 reek ken af boger. som forlaget 
har udgive! om Commodore 64. Bo- 
gen. der er skrevet af David Lawrence 
og Mark England, har begge tidligere 
skrevet orn Commodore 64. Kan anbe- 
fales til alle som har eller tsenker pa at 
kebe en Commodore 1541 diskette 
station. 

Efter en kort introduktion til diskette 
og diskette stationer i almindelighed 
bliver det gennemgaet, hvordan man 
tilslutter 1541 til sin Commodore 64. 



Man gar derefter over til at forklare, 
hvordan man gemmer og henter de 
kommandoer man skal benytte, pro- 
blem atikken om hvad skal »gemmes« 
og brug af mere end en diskette sta- 
tion. Der er et stort kapitel som er kaldt 
»Disk« Housekeeping Commands" 
d.v.s. kommandorer der skal bruges 
for at kommunikere med diskette sta- 
tioner. Bogen beskriver derefter »error 
channel" far den gar over til det store 
afsnil, der er tilegnet »sequential-«, 
»user-«, »relative-« og »random-« files. 

Disse omrader er kun behandlei 
overlladisk. i den manual 1 der falger 
med diskette stationen. For al udnyite 



diskette stationen heit ma" man forsta 
disse omrader. Alle kapitler i bogen er 
god! illustrerede med eksempler og 
program listings. Desuden er der et 
antal nyttige hjaelpeprogrammer inkiu- 
Sive et program listing konverfering 
Commodores special -grafiske tegn til 
tekst i skarpe klammer. 

Der er ogsa et kartoteksprogram. 
der benytter ^relative files*, og »list 
track and sector« program, hvor der 
bruges »random files*. 

Bogen si utter med et kort kapitel om 
»disk directory* og en oversigt over 
»disk error* meddelelser og deres be- 
tydning. 



Comal 80 pa 64eren 



Forfatter Bor'ge R Christensen 
Forlag, SYSTIME 
Antal sider: 272 

Lad det va3re sag! med det samme. 
Denne bog er en skuffeise! VI havde 
set frem til en informativ og saglig bog 
om Comal til 64'eren. En bog. der pa. 
en nem og forstaelig made kunne bi- 
bringe os Comal 80 tdeen. Hvad far vi 
sa? En bog. der ikke er beregnet til den 
nyeste version af Comal. Desuden er 
den skrevet i et sprog. der nsermest vil- 
le passe I en bernehave- Dei er ufor- 



staeiigt at B. Christensen pa den made 
»snakker ned« til os laasere. Godt nok 
skal stoffet vasre lelforstaeligt, men 
det skulle ikke vaare nadvendigt at 
simplificere s&groft. 

Den made bogen er skrevet pa og 
de eksempler der er brugt, rraskker Co- 
mal ned pa et plan, hvor Comal IKKE 
hcrer til. 

Bogen er beregnet til version 0.14. 
som findes pa diskette. Der kan er- 
hverves en diskette med lesningeme 
til de opgaver. der stilles i bogen. Bo- 



gen kan bruges til det nye mdstiksmo- 
dul, men det forudssetter. at brugeren 
sel v er i stand ti I at se forskell ene pa de 
2versioner. De avancerede »Pakkern. 
der lindes i Indstiksmodulet, e' seMei- 
gelig slet ikke omtalt Sprite's er om- 
talt, og bliver gennemgaet; men efter 
mm mening pa en darlig made. 

Bogen kan ikke anbelales. desvaar- 
re. Sa der er stadig brug for god og up 
to date bog om COMAL 80. 



Tilfaeldige tal - er de tilfaeldige? 



Af P. Stadel Pedersen 



Tilfaeldige tal (pa engelsk: Random 
Numbers) er el megel spaendende 
omrade. De er meget anvendeiige og 
bruges til spil, tipsprogrammer, stati- 
stiske undersogelser. malemalisk 
vaerktej m.m. 

Fra en computer er de som oftesl 
resultatet af en matematisk bereg- 
nmg. Der er tradition for, at tilfaeldige 
tal ligger i intervallet metlem 0-1. 

Et starttal (pa engelsk: Seed) giver 
del (orste tMfaeldige tal. Derefter kan 
man vaslge et nyt starttal og gentage 
processes Ofte vaaiges det foregSen- 
de tilfaeldige tal som starttal. Herved 
fas en raakke tiifasldige tal, som kaldes 
»Pseudo Random Numbers«. 

Commodore 64 har mange mulig- 
heder med instruknonen 
x = RND(A) 

Ved at vaelge de »rigtige« vaardier at 
A. far man netop de tilfaeldige tal, man 
Brisker. Computeren udfarer nemlig 3 
forskellige beregninger, al t efter om A 
er negativ, lig med 0 eller posltiv. 

A er negativ 

Nar A er negativ. vil A blive anvendl 
hver gang som starttal, og man vil der- 
for altid fa samme tilfaeldige tal tor del 
samme A. 

Eksempel 1 

10FORN = 1T0 3 
20X+RND(-0.123) 
30 PRINT X 
40 NEXT N 

Dette program vil give folgende tilfeel* 

dige tal: 

.544630526 

.544630526 

.544630526 

A = 0 

Hvis A er 0, vil computerens interne ur 
blive anvendt som starttal. 



Dette program giver forskellige tilfael- 
dige tal, men de er ikke altid hell tilfael- 
dige. da det afhasnger af , hvornSr man 
atlaeser uret. Man risikerer, at pro- 
gramme! laeser uret i uheidig rytme. 

A er posittv 

Nar computeren taendes, etableres et 
last starttal til det forste tilfaeldige tal. 
som dernaest benyltes som starttal til 
det eHerfalgende tal osv. 

Eksempel 3 

SYS 64736 
10FORN = 1 TO3 
20X = RND(5) 
30 PRINT X 
40 NEXT X 

SYS 64738 giver »Cold Stark som nul- 
sfiller computeren. Dette program gi- 
ver fersle gang folgende tal: 
.185564016 
.0468986348 
.827743801 

Hvis programmet gentages, vil man 
fortsaette i raekken og fa nye tal 

Egne tilfaeldige tai 

Man kan selv opstille en matematisk 
forme I og habe pa, al den giver »gode« 
tilfaeldige tal En god tojmefe giver bl.a. 
en lang raekke tilfaeldige tal, inden den 
geniager sig selv. samt tal, der er 
jaevnt tordelt t hele intervallet. 



(side 3 



Eksempel 4 

10 X = 0.125:REM STARTTAL 

20 FOR N = 1 TO 3 

30Y = (TT + X)T5 

40 X = Y-INTY 

50 PRINT X 

60 NEXT N 

Programmet gtver folgende tilfaeldige 
tai: 

.941729069 
.188535213 
.547753572 

I et bestemt interval 

Ofte har man brug for tilfaeldige tal i et 
bestemt interval, f.eks. fra 1 - 6 ved 
terningespil 

Tilfaeldige tal i intervallet fra A til B 
(begge tal Inklusive), kan opnaes med 
folgende formel: 

T = A + 1 NT C(B +1 -A) " RN Df 1 )) 

Den falske terning 

Dette program et velegnet til terninge- 
spil, isaer til hasard. 

10X = RND{-0-123) 

20N = N+T;A = 6 

30IF(N AND 1)=0THEN A = 10 

40T = 1+INT{A # RND{1)) 

50IFT 6 THEN T = 6 

60 PRINT"KAST NR." 

:N. "TERNING = ";T 
70 PRINT 



1. tfltf ii i 

2. KAHP 2| 
(.Krlrt>| X 



■V 



.'ll 



6.KAW-I X I X I 2 | 2] 2| X |i I X | 



9.KAr*>| 2 



Iia .KAnpi i 
ii.kakm X 

912.KAMP X 
il.KrtW i 



r *M 

i IX 

I X I X 



11 I /IX 
2 1 I I 
1 I X 2 
ll li ll I 



Eksempel 2 

10FORN= 1T0 3 
20X = RND(0) 
30 PRINT X 
40 NEXT N 
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Commodore - MARKED 



SELVANGIVELSEN 1984 PA EDB 



Fremtiden er allerede virkelighed. Nu kan 

Programmet SELVANGIVELSE 1984 kraever 
ingen torudsaatninger om EDB eller skat. 
Programmet er selvforWarende, bade om- 
khng den besvareteesform/'mput der onstes, 
samt omKring del rent skattemaassige. 
SELVANGIVELSE 1984 stiller dig en meang- 
de sporgsmal. resultatet a( disse besvarelsor 
opdateres i din computer og pa grundlag at 
dette udskrrves selvangivelsen. Ertdelig er 
der til sidst mullghed tor at beregne rest- 
skatAiverskydende skat. 

SELVANGIVELSE 1984 er bereghet til at lave 
selvangivelsen for lanmodtagere Gennem 
logiske rutiner og sporgsmal behandles (el- 

For at kunne kore SELVANGIVELSE 1984 skal du have felgende: Commodore 64 - Printer - 
Drskettesfation (Diskette 1541) eller Bandstation (Datasette 1530) 

Bandveraion 495 kr. Diskettevursion 495 kr. Sknv,il: 

Prlsen er. ved forudbetaling pr. check. 0n- REVI-SOFT 

Skes programmet sendi pr efterkrav, tillegg- Bote 1916 Snebaecvej 27 

ges der gebyr a 30 kr. 8270 Hajbjerg Tit. 06-271543 



du lave d in selvangivelse pa din computer. 

gende opgaven 

- Len. herunder ogsa B-indkomst. 

- Lanmodtagerfradrag. 

- Bank og spareKasse: Indian, udian. rente- 
indtaegter og renteudgifter 

- Pensions- og llvs-torsikrlnger. 

- Villa, ejerlejllghed og sommerhus 
Herunder ogsa kob og salg. 

- Pantebreve, obligationer og aktier 
Herunder ogsa Kob og salg. 

Du kan seMolgellg ogsa, med SELVANGI- 
VELSE 1984, tore andre endde nasvnte punk- 
tar pa selvangivelsen, men kun de naevnte 
punkter klarer programmet i sserlige logiske 
rutiner. 



COMPUTER 



DRAGON SHARP 

Alt i computer og 
perifert udstyr. 
EDB-borde og tilbelw. 

MIBOLA - stedet med 
den gode service. 

yMIBOLA 

/MIKRODATk 

0sterbrogade 25 • 2 J 00 Ksbenhavn 0 

Ttr 01-42 19 66 
Detrigtigc datagnj tiJ erbverv og tritid 



Alt i interface og udstyr 

til VIC-20 + 64 og ovrige CBM varer. 
0gs4 harddisk. der beijenes som en 
8250. kan tilsluitcs samtlige de af Com- 
modore fremstillede computere. 




U.I.B. Electronic & Data INC. 

LilWvangsve|3. 3S20 Farum 
OJ-95 5' 70 



Head-Up 
Dataservice 

Skarler dig nye programmer Spil til computere p< 
postordre. Ekspedition og efterkrav kun kr. 10\ 



P.eka. 

Indlna Jones og 
Spy Hunter 

198 



Skrrv til os om dine onsker saml rekvirer oversgl 
over vore spi og programmer 

Head-Up Dataservice 

Dempeeng 7, 2950 Vedbsek 

@ 02-89 19 74 (ki. 18-19) 




Printerborde 
RABAMI Serie 230 




Trinlas uafheengig hojderegulering 

af savel skserm- sorn tastaturplade. 

Overflade. brandfast melamm i eg, 

leak eller modehvtd. 

Leveres knock-down. 398* + moms. 

Forsendes pr. efterkrav over hele 

landet. 

REKIAMEHUSET AIS 

Kongovejs Centre! 6 • 2970 Henholm 
TU 02-57 20 00 



Set bedste spit til Commodore 64!! Pr0v selv! ! 

F3 santidig vores sof tware-kata log . 

IMPOSSIBLE MISSION 

Som medlem af den s*rl*g» Crupp* mocJ Computer 
Terrorialer har du faWl III Opgave ai I ind* 09 
itoppe den crctltta Elvln, lam har la gel hele 
Jordeni befolktilng som yfdsel under trutler or 
• I udalelto Jordan med a I onbomue&pr am gfimiji' ■ 
Elvm har farskantel »ig • ail da la -konlroi cen- 
ter, der rorsvarei af roOolter, I din »»g*n vdir 
Elvm ma du pa e*\ masse rum og gang* I 

c en. I re I, samlidig mad al du ma prtve at undg» 
roDullefiie Du kan I •be lro (lem. hoppe Ovor 
thrm. eller del meat aikre: t»ge den lid del * < ; . 1 ■ 
ai lyde de kod*r. der er r»»dvertdlge lor al 
kunn* sstte den ud if lunkllon. Derefler km 
du bevage dig mere frii Foiograter aa mange 
spar mm* muligl. Sparene Vil III sidst give dig 
Use-ordet . dor gar del muligl for dig at Inenga 
kid i ElvUis kontroJrum og iloppe ham I nan 1 
dtcveJtke forertavende. I splller 



Printer MPS 801 





P§ diskette: 210 A - 



KUN KR- 

168,- 



COMMODORE MPS-801 
Matrix printer ti I 
Commodore 64 

Specialpris 

kunkr. 2495- 

Begranset antal!! 




•kken 



Vi sender over heLe tandet 



v. Akademisk Boghanoel 
Vestetgade 58A • 8000 AmusC ■ Til 06 ■ 132055 



Computerprogrammer i radioen 



Af Jorgen Jorgensen 




Na> man i Ballerup ogomegn talerorn 
Databussen, tsenkes der hverken pa 
noget rned fire hjul ©Her opbygmngen 
af en computer. Databussen er der- 
imod navnet pa en radioudsendelse, 
der hver mandag aften kl. 22.30 gar i 
lufien via lokalradioen RADIO 83 pa 
frekvensen 100.1 MHz. 

Del er Henrik Larsen. der i en halv ti- 
me er »chauff0r« for de mange compu- 
terfans, der p4 der tidspunkt sidder 
med aret i hejttaleren og klar med 
bandoptageren. Udsendelsen handler 
selvfalgelig om hjemmedatarnater 
Nyiieder, anmeldelse af programmer, 
dataundervisning og som noget nyt, 
har man ogsa forsogl at sende pro- 
grammer ud over radioen - i f srste om- 
gang til Commodore 64. Indspi! dem 
direkte pab^ndoptagerenogderfradi- 
rektei compute ren. Del lydernaturlig- 
vis reedselsfuldt og andre mennesker, 
der uforvarende kommer til at stille ind 
pa den frekvens, vil tro. det er kode- 
meddelelser til en iremmed efterret- 
nmgstjenes-te. Det virker i de tleste til- 
fsBlde, men kraever naturligvis gode 
- modtage-ogoptagetorhold. 



Dataundervisningen er I forste om- 
gang et kursus i BASIC-programme- 
ring, hvor de enkelte BASIC komman- 
doer bltver gennemgaet med lilheren- 
de sma programeksempler. 

Hele udsendelsen bltver kart i en 
frisk stil og er bevis pa, at IJernsynet 
ikke har monopol pa dataorientering. 
Det kan godt lade sig gare uden et bit- 



lede. Det er et frisk og godt forscg, og 
der er ingen tvivl om. at Danmarks Ra- 
dio kunne henle megen inspiration i de 
experimenter, der foregar rundt orn- 
knng hos lokalradioerne. Pa det sene- 
ste har ideen da ogsa bredi sig, idet 
Radio Voice nu er begyndt med tilsva- 
rende udsendelser hver lordag. 



10 REM »** UFO LANDING »«* 
xtxx OF: B lflRNE U. JENSEN « 
xx 

20 POKES3280.BSPOKE532B-1 .0: GOSUB 1080: (SOS 
U81 500 

30 FOR I = 1 10500 : MF XT : FOKE204 0 . It : POKE204 1 

,11:POKE2042.11 
40 POKO043 . 1 3: POKE2044 . 1 4: GOSUB1600: U=5 

3248 

50 F ^6: ft: 14: X-160: l>-0: FORI H T08: READftit I 
]:NEXT 

60 FORI =704 T0766:REnnN:P&KE» .N: NEXT 
70 PQRt^896T0349:POKEI .0:NEXT 
80 FORI=950TO959:POKEI ,255:NEXT 
90 FORI -897TQ9I2STEP3: REfiDN: POKEI ,N: NEXT 
100 FORI =B37T0894:RF_*0N:POKF] ,N: NEXT 
110 PUKEU"10.6:POKEU*41 .2: POKEUM2 . 7: POK 
EU+43 .5 

170 POKEU*^.27:P0KEU+3 ,125:POKEU»4 .60: PO 
KEUt5,125 

1 30 POKEU+8 , 1 60: FOKEU* -9 . 179: POKEU .X: POKE 
Ut I ,35 

140 P(TKEUf?9.25:P0KEU*-73 i 24:P0KEU+3B.8:P 
OKEU+31 .0 



150 PQKEOS0. I?R:P0KEUM6.4:PQKEIJ»-21 ,23:p 
tIKEUf 27,6 

lfiP FORI = I T025: PR]N r : NEXT ! FDRY -35T065: PO 
KEUM.Y 

180 FORI = 1 TO50;NEXT: PQKEV+39 . INT ( RNUC0 J* 

I5.-H 3: NEXT 
190 TI*= 008BB0 :PUK£54276,0 
200 P-=IN1 ( RNIK0 1*35*1 ): Y=Y* 1 : PDKEU+1 .V 
210 FORM - 1 T08: GOSUB400: PR INTTrtBtP PI ) 
240 IFPEEK(U«31 JAND1TMENU=U+1 
243 IFU=2THFN500 

245 U=PEEKCU»30 3: IFUO0THENGOSUB470 

273 NEXT: Y-Y*i:POKtUt] ,Y 

2B0 U=0:A=ft-0.42H:INUrt)! IFH=0THENHsl 

290 FORI = 1 irjH:GOSU3400:PRINTTrtBCPr 

3?0 IFPEEKt'JOl )ANrJlTHENU=U*l 

323 TFU=2THEN500 

325 U=PEEKCU+30 ): IFUO0THENGOSUEJ470 
355 NEXT: IFL -! TMENiaea 
160 U=0:GOTO200 
400 GETB4MFBSO . TMEN430 
418 X=X*F: IFX>255THENX=X-256SP0KEU+16,5 
415 1 FX >35ANnPEEKC U * 1 6 3 =5THENX-5 
420 POKEU.X 
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430 I FBIO , 1HEN459 
433 X=X-F:JFX<0AMDI i tfKtUtie)=5THENX-X+25 

6:P0KEU,X:P0KEU' 16,4 
4-18 JFX<30flNDPEEKCUM6}=4THENX=60 
445 POKEU.X 

450 P0KE0t39. INTCRNDC0)*15»1 ): IF0i<>""TH 

ENRETURH 
480 FORN=1TO20! NEXT: RETURN 
470 IFUflND2THENGOSUB1500 
475 I FWAND4T HENGOSUB 1 500 
480 IfUOND 16THENL = I 
490 RETURN 

500 P0KC54273 ,55: P0KE54276 . 1 20; P0KE54277 
.72 

570 PGKF54278 ,0: P0KE54276 . 129: P0KE54296 , 
13 

525 FOR I =8977091 2STEP3:P0KE1 .0:NEXT: IFf1 = 
8THEN560 

550 rORI=rn07:PRlNTTflBCP)f»*l Itl ): G0SU857 
0:NEXr 

560 FOR 1 s H025! PRINT : GOSUB570 : NEXT : G0T07 
00 

570 P0KE54276 ,16: PQK£51276 . 17: POKEU+39 ,2 
580 FORHMTO10:NEXT:PQKeu-»39. IRiFaRNraTC- 
^NEXT^ETURN, 
700 P0KEiJ*6.x:P0KEU+7.Y: IFPEEKCUM6 J=5TH 

ENP0KEUM6.13 
730 POKE'J+21 ,30:POKEU+4B,6:POKEU*4i ,2 
740 P0KE54273 . 10: P0KE54276 . 1 28: P0KE54277 
.1 I 

750 P0KE54278 .0: P0KE54296 . J 5: P0KES4276 . 1 
29 

770 mR! -r7fl?50:POKEU^,[:NMNTtRNDt0)*6 

3>837 ;:PUKEN.0:NEXr 
800 F0P?^42?'PT<I54?78;P0KEJ ,0: NEXT: PRINT 

t LLR/HOMEl' *.P=12 
820 M*=f11D*(TIi.4.U:-Si=RIGHr*CTl$ f Z):(1I 

* = " PUN. OG " 
810 SE4-- SF.K. : IFI1*= B" THENflt- :rt|* = ' 

:P=P*5 

850 ULfFT*(S*.| J= 0"THENS4rRiGHl*CS*.l ) 
860 PRINTTflBC IU [ CRSR/Q0WN*3JC RED1DU 8L 

EM PM1T EFTER 
870 PRLNTrnBCP)-rCRSR/OOUN*23 iHSiPllSiS* 

; 5E t : F MR I = 1 r 0 1 000 : NEXT 
890 PRINfTftBC 13) f CR5R/Q0WN*5 It YLUU I L 0 

U HERF ":: 6017)1350 
1 100 I =150; P0KE54273 . 1 : POKE34280 , 1 ! P0KE5 
4276.32 

1 120 POKe54283.128:POKE54277.706:POKE542 
84 .206 

I 140 PUKF'jl77R,0:Pf)KE51285.0:POKE512?6.3 

3:P0KE54283, 129 
1 150 rORItB37r09l25TEP3sP0KFI ,0:NF.XT:FOR 

f 150TO17S1EP-1 
1 220 P0KE54273 , I : POKE54280 , 1: I FX> 1 60THEN 

X=X-1 

1230 IFX<l60THENX=X+l 
1240 IFY>700IH£NY- Y- 1 
1258 IF"f<200 VMLNV -Y» 1 

1270 POKEO.x:pOKEU»l ,Y = PRINT: FORN -1 TU10: 
NEXT: NEXT 

1 290 P0KEU*39.1 I : POKEU+10,6: POKEU+4 J ,2:p 

0RJ'=54272T054285 
1 308 POKEI .0: NEXT : PR INT 7 CLR/HOflE J " • FOR 3 

= 1 101200: NEXT 
l?tfl PRINT|hBC9J" CCRSR/D0WNX3) F* 
1320 PR1NTTABC9 ) C RUS^ONJ UFO L ft N 

D E 1 SPCC 18 )E* 
1340 FORI =!TOl200:NEXT:PR]NTTABU2rtCRS 

R/D0UN*5JC LOGO/7 JVIL DU HERE ; 
1350 POKE138.0:POKE650,0:Q*= " : INPUTQ* 
1360 IF|„EFTKQ> , 1 JO "N"THENRUN 
1400 PRINT I CLR/H0HE3 ':P0KEU+2I .0:POKEVi 

23,0;FORI-I TUIG 
1438 POKEU*l .0:NEXT:FORI *54272T054292:PO 

KEi.8:NEXr:EN0 



1500 1FA>7T HENRET 

1518 fl=10:PDKE5328R.I4:GOSUBl630sRETURN 

1600 I FF : J0TMENRETL1RN 

1610 F - 1 0 5 POK F.53289 .10! GO^UB 1 633 : RE 1 URN 

I 6 30 I UKF517 '3 . 30: POKE54 776 , 1 6: P0KE54277 
.11 

1 650 PIJKES4279 .0: P0KF54276 . 1 7: P0KE51296 . 

13* RETURN 

1808 Ei~-TRRMURUS/ON] 

; PRINT 7 CLR/HOMEK CRSR/00UN*8 i 

1910 PRlNTIfl9C9)EtSPC(l8r UFO LAN 

DING SPCC183E* 
1820 PR IN TT08 (917 iTRSRxOOWH* 3 ] f RED ] C BRUG 

PUHKTUM t KOndAV: RETURN 
?000 DATA C L0G0V4 JC RU5/0NK SH IFT/rf" 1( LOG 
0/»V." tRUS/ON] V CRUS/ON) V 
CRUS/ONJEGRNJ " 

?0i0 omfl 1 rRus/aNjruoGO/4jcsHiFr^j clo 

60/* 1" . C RFHK LOGOUT *71 , ULCGOy- 

*ar , : t ~ 

2020 D^Tne, 60, ft, 0,66.0.8,255. 0.1 .36 ,128. 
1 .30,128.1 ,255.128,7.255,224,23,24. 
164 

203.0 DP.m03.125.252.43.fil .212.107.125.21 
4 .235. 2«=», 21 5. 127, 7^5. 254 .75.153.152 

7040 DFl1ft25.l53. 152 .0 .8 .0 .0 .0 .0 .0 .0 . 0 .0 , 
0 .0.0. 0.0. 0.0. 0.74. 153. 2 19. 126 .60.2 

, 4*. . 

7050 D**l 102. 0.0. 10. 8, 2. 37, 6. 1 40. 24, 177. 48 
. 4. ISP. 96 .67. 19. 140. 212. 10. 19. 40. 20 

8 

2060 DATA236, 1.1 75.64. 4. 125. 96.41, 251.0. 
4*. 175. 134. 69. 188. 225,0. 107.0.26,24 

6. 

2070 nnTrt96. 37,5.24 .1 .160.200,6.85,48,4, 
72.0.24. 140.4,0.67.0 



KONTROLSUtl FOP UFO I. flNUlNG 
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141 


70 


66 


30 


20 


40 


242 


50 


75 


60 


189 


70 


159 


80 
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90 


159 


100 


193 


110 


31 


120 


135 


130 


173 


140 


126 


150 


242 


160 


11 


180 


138 


130 


12 


200 


51 


210 


218 


240 


192 


213 


0 


245 


254 


775 


130 


280 


30 


230 


135 


320 


192 


323 


0 


325 


254 


355 


223 


360 


110 


400 


78 


410 


166 


115 


242 


420 


113 


430 


5 


435 


246 


440 


31 


445 


113 


450 


102 


460 


60 


470 


189 


475 


1 92 


480 


706 


490 


142 


500 


65 


520 


# 


525 


176 


550 


MR 


560 


4 


570 


58 


580 


1 78 


780 


57 


730 


180 


740 


49 


750 


11 


770 


156 


800 


1 69 


820 


74 


840 


162 


850 


92 


860 


38 


tf70 


105 


R3R 


217 


1 100 


143 


1 120 


158 


1 140 


00 


1 150 


79 


1720 


164 


1230 


I? 


1240 


14 


1250 


15 


! ;?0 


52 


1250 


34 


1300 


172 


: M0 


126 


1320 


215 


1348 


77 


1350 


54 


1380 


15? 


1400 


132 


1130 


72 


1500 


233 


1510 


25 


I 600 


25 


1610 


27 


1630 


255 


I650 


1 57 


1800 


129 


1818 


139 


1870 


ies* 


7000 


720 


2010 


I7t 


7070 


l 76 


2830 


57 


2R48 


243 


2050 


96 


2068 


111 


2070 


60 
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CBS 



ELECTRONICS 
SOFTWARE 





Nye amerikanske 
WPP-SPILL fra EPYX 

PITSTOP II 

LEGG MERKE TIL PRISENE; 

Kassett: Veil kr 175,- 
Disk: Veil kr 195,- 
For Commodore 64. 



Det beste bilspillet som hittil er laget — og 
det forste der du virkelig kan konkurrere 
mann-mot-mann! 

Her er action for alle pengene, b§de pa ba- 
nen og i service-depoet (Pitstop). For a 
vinne, ma du bruke hodet og refleksene li- 
ke meget som gasspedalen! 



Fas hos alle velassorterte hjemmedata-forhandlere 



CBS Electronics representerer bl.a. 
folgende Softwareprodusenter i Norge; 

Activision, Brainpower, Bug Byte, CBS Software, In- 
terdisc, Mirrorsoft, Pixstik, Quicksilva, Software 
Comm.. Virgin m.m. 



x PRnriRrtM : SKAT I R4 

X 

* UATO S 76.12.B4 

X 

% D.IPVRIGHT: Si »E m HI'. ORE 



SDKS 78 

«5270 BRATTUAAG 



70 HEM 
30 Rtpi 
10 REK 
50 RFH 
60 REM 
70 REH 
B0 REM * 
50 HEM * 
100 REM « 

l ie rem * 

120 RIM x 

•30 REM *** 

140 REM 

150 REM 

160 POKE 53780. B:POKE 53281 .5 : PR INT [RUS 
/0N3CHHT) 

170 TOKE 7RR.57:P0KE 774,8:P0KE 775.16? 

1S0 FEM 

130 PEJ*T x**^*«Xi.xxxxx*xx<«xxxj.i.**xxx*jlj: 

200 REM * UARiABLFR TOR OPPDATERING * 
2t0 RIM KX»x»«»imii«i»>»»x»«M*.ii*i*n 

770 REM 

7'fH RCftj oi ,n2. A3.A4 .A5.A6 .A:>.A8 .A3. Bl .B 
2.R3.H4 .B5.B6.ft7.Sfl.B3. CI .C7.C3.C4.C 
"3.C6 

740 REflO C7.CR.C9.fll .fl2.tl3.04 .05 
230 REM 

260 REM xinixi^mniimixumiix); 
770 REM « UEROtER FDR DPPrjftTEPING * 
230 REM x<*«iii»x»x»»»»n j iDtu^uxix 

238 REM 

300 RATA 1984. ,12000. 74000. 23. 4. 4 .14500.5 
. 3 , 45000 , 83000 ,3.5 .40000 , 78000 ,0.5.1 
6000 

310 DATA 17000,1-1.5.12000. 1:000,20.5,120 
m . 1 2PI00 . 25 .5 .23B0P . 23000 .30 .5 .3S0H0 
370 OriTA 35008.35.5.37000,39000,40.5.40 
330 REM 

340 REM ixxxxxtx txxxx *x*xxxxx****xxxxx 

350 REM * REGISTRERING A" DATA x 
360 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxtx 

370 REM 

380 PRINT-CCLR^WOnEjrCRSR^nOWNDECRSR/RIG 
HT*?]BERERNiNfi ^ INNTEKTSKATT FOR 
UM 

330 PRINT -[CRSR/RIGMr*7J— 



100 print"! crsr/down*3j0ppgi ibnnstflkeps 
tulle - 

410 print 'l crsr/duunjnaun og aoresse" 

420 INPUT "*C CRSRyDOWNx51NflON ' ; W* 

430 input 'ecrsr/^jownj aoresse : e* 
440 inputs crsr/oounipost adr. i r* 
150 print "t o r/h0me k crsr/430uin3c crsr/rig 

ht *2 3 rere gn i ns f>u inntektskatt for - 

;ai 

•460 print ii crsr/rtght*?] 

470 INPUT 'L CRSR/DOWN*33SKflTTBR OU I KLfiS 

SE I ELLER 2 ;X 
480 INPUT"E CRSR/430U1N*230PPGI BRUTTOJNNTE 

KT IBR 

490 input *e crsr/o0un}0ppge net701nntek? 
' ;ne 

500 input -ccrsr/u0wnj0ppg1 euent . saerfr 

AflRAG "SAG 
510 INPUT [ CRSR^UOldfOOPPGE EUENT . SPflRIN 

R/LIUSTR. :l I 
570 INPUT "TCRSR/00UNJ0PPG1 EOENT . FRAORA 

G FOR BARN ";flfl 
53& INPUT IC.RSRxTlOUNJdPPQI FORSKUUUSTREK 

K ":FR 

540 REM 

558 REM t9xx*xxxxxx*x>3tx*xxx*xxxxxxxx 

560 REM » BEREGNING AU KOMUNESKATT 

570 REM » I KLSSE t OS 2 



: 



RUN1/8S 




530 REM 

600 TF X = l ANO NE<- A-2 THEN KU=0:GOTO 66 
0 

6t0 IF X=7 AND NF< = 03 T1<EN K0^8:G0TO 65 



if x-i then Hi^? 

IF X=2 IMEN MIsA3 
AJ-NC HI , 

RF." 

■ BF.REGNING AU SYKEDELEN * 
Rr(1 i I KLASSE 1 AG? * 

REM 

IF X-l FIND MFC- A2 THEM SYrerGOTQ 76 

a 

IF X=? AND NEC= *3 THEN SY=0!GOTO 76 

a 

$YrimrAj*rt5/ttmi 

REM 

REM Jiiiiimnnnrniii)nnt» ■ 

REM * BFREGN1NG AU PENS IQMSTIEI EN » 

rem » j Ki_m.SE I or. ;> * 

REM ixit ii-ii-iiiiiitjiiiitiijx)) j 

REM 

IT RR< = A6 THEN PE : B: GOT I' R60 
rV5=Bfi-A6 

IF r)(j,< -V-.0P THEN PE = lNTf nRx25/l00 3:G 

aid now 

REM 

REM ■•'•»uii«iu.iii«««xnixi«»iu 

REM • BCRFGN ING AU SPAR .yt I USTR . * 

REM » #pi FRAMRAG x 

REM •n«jiiiojiiiiuii*jiii,ii»ii 

Ren 

LOMNT(LI*n5/100J 

REM t*»«»>?««7n«ii.iiuiiuin_ 

REM « BEREGNING flu STATS3KATT * 
REM t I KLASSE 7 * 
REM J«T«iJiii»ii««i.i:in xxxxxxx 
REM 

IF" X = l THEN GOTO 1290 
IF X=? AND NE<= fl9 THEN [1F = 0:GOIO 13 



730 

710 
730 
7fi0 

778 
780 
->90 
900 

eta 

R2R 

«i» 

840 
850 
860 
670 

«H0 

390 

900 
910 
323 
930 
310 
950 
■360 
970 
900 

990 
1000 

1010 
1 020 
1030 
10-10 
1050 
1060 
10/0 

:«bb 

1090 
1100 
1 110 
1 120 
I 130 
1 110 

1150 

I 160 
1 1,78 
11P0 
1130 
1200 
I2ld 
1220 

1230 

1248 



IF X=? THEN K;Nfc'~A9 
IF K<=83 THEN DF = INTCKkBI /'lBO 5: GOTO 
1300 

IF K> B3 THEN L =83*01^100 

IF rK'06 T MEN N=n'B4/-100 
IF H> B6 THEN N-B6*B4^108 

D=M B6 

IF 0<=B9 THEN P=uxB7VlB0 
IF 0> B9 THEN P=P9'B?/1B0 

a =0-89 

IF QC=C3 THEN K= f l*Cl/l00 

IF 0> C3 THEN R=C3»C1/'100 

W-B-C3 

IF W<=C6 THEN I=U*C«V100 

IF U> CD IHFN I=C6xC4/100 

v=w-ce 

SF V<-cy fHEN T=Y*C7/M0& 
IF Y> THEN T=r 9 »( ss\ m 
IUY-C9 

IF H-<=£)3 1 HEN G=H*PI/100 
IF H> D3 THEN G=D3*D/1,M80 

E =H-D3 
C=E»O'V100 

IF K> B3 AND M< 06 THFN (_F =|NTCL+N ) 
!G0TO 1300 

IF M> 136 AND U< B9 THEN OF : INTtL*t-N» 
P) SGOTO 1309 

IF 0> 89 AND Q< C3 THEN DF = INTCL+N* 
PfR) :GOT0 1300 



1 260 

1270 

I ?R0 

1 790 
1380 
1310 
1320 
1330 
13t0 
1350 
1 360 
1 3.70 

1 3N0 

t 300 
14 00 



GST. 

P«Rl 1 :GDTl3 1308 

IF U> E6 AND Y< C9 THF.N DF = INTCl_»N> 
P'R'l ►n :&0I0 1308 

U Y> US AND H< 03 THEN [_r--fNUI*N + 

P'R.itT^n):Gnra 1300 

IF H> 03 T HE N DP : INT[(_rNtP»RtItTH3t 

b-RS-I i 

■'"'SUB 2 MA- 
RCH 

sen txti%i*xxx*xxx*xtxxmtTxxxxt% 

REM » t3rPFr,M{NG A'J PROGNOSE * 
REfl ******* 1 'rjiiummuiinni 

REH 

STJ =DF ♦KOrSY* PF 
Ul -SU-tAQtLOrBft ) 
UG-.FR-UT 

ir irt -1 R J mi r 1 nt-'im 1 0 N s e~ 
if ukik hiln m=uu f a a r i i 

J E M 

IF Uf>fR THEN M = -RESTSICflT 



1*118 REM 

!-;?0 PPM ni.ni.u.tuiixin.i,!,,,,, 

1130 Rl.fi ' PRASHO^r SK-lERti * 

1-110 REM unmix.ii.,.,,,,,,,,,,,,,, 

M30 RPf^ 

1160 PRINT ■tCLRxHDMLJtCRSR/imUNirCRSR/RI 
GMT*? JBERFGN ING AU INMIEKTSKOTT FOR 

M70 PRINT I CRSR^!rGHT»21 



MSB PRINT 1 

UN05E" 
1-198 PRINT 

31 3 1 OF 

1500 PRINT 

1510 PRINT 

isata print 

1530 PRINT' 



T CR SRynDWN JC LRSR/R I GH I * 1 5 3PR0 
TCRSR/OOWN)i23STArsSKATT TABC 



KHMrtUNESKnTT TAB[31 y.KO 
3YKEDEI TABC3I ):SY 
PENSJONSDEL " TAB C 31 )J PE 



1510 PRINT 
1550 PRINT 
PRINT 
1 JILO 
PRINT 

FA0C3 
PRINT 



1560 



1S^0 



1S88 



SUM' r TFiBC 31 ):SU 

- SAERFRADRflG TftBni );AG 

- SPARING/4.[ySTRY. AW TABC3 

I RADRAG FOR BARN: 0-15 F*AR 
1 J; DA 



1530 PRINT UTI.IKNA SUA' T TflBC313;UT 
1600 PRINT - FORSKUDDSTREKK Tf»BC313:FR 
1610 PRINT" 



1620 
1530 

1 648 
1658 
1060 
16^0 
IT3B0 
IF590 
1700 

I, '10 
1??8 

3730 



PRINT At TABC31 JUG 

PRINT L(;RSR/OUMNJ»2J0NSKER DU PRINTE 

R UTSKRIFT CJ/N1 

QfTT i%i IF )*' N THEN 20-10 

IF J*<>"J THEN 1610 

RFM 

PF.N «» "**»twirx:ixxu*xixtM»xxxxxxx 

REM * PROGNOSE UTSKRIFT PRINTER 1 
REM 'xxxxxxxmimx mimF<iin, OI 

PL 11 

0PFN2.-1 

PRI NT "2 .CMR4C 11 JCHRiC 163 "HeBEREGNlN 
G AO [NNTTK TSKAT T FOR ml 
PRIN:r7.rMR*( 10)CHR*tl61 .32PR0GH0SE 



1740 PRINT"?. CHRtf 15 JCHRiC 10 JGHRtC 10 ) 
1750 PRlNT»2.CHRiri6 ) 06L0NNS TAKERS 

: NrtUN ":Ui 

1760 PRlNTo2.CHRifl6 J , 27A0RESSE "iEi 
1770 PRINT»2.CHRi( 16 ) '27P0ST ADR . '-;Ri 
17B0 PRINl»2.CHRif 10)i:HRt(|0j 
1790 PRINT*?. CHRi( 1 6 rftfiSKA TTTKLA5SE 

t/VijW V"'" 
IR00 PPTrn»2.CHRiri6] 86BRUTTOINNTEKT I 



Det mest utrolige 
action-spillet vi 
har sett! 




Turbo-kassett for 
CBM 64: 
Vteil. kr 120,- 
(inkl. mva.) 



HERCULES 
fra Interdisc 

Et fantastisk utfordrende og 
overraskende actionspill som 
setter deg pa prever du knapt 
har dremt om. 50 forskjellige 
scener, den ene mer overras- 
kende og spennende enn den 
andre. Du ma vaare lynrask 
fra ferste stund, eller er gu 
•ded- i le-pet av sekunder! 
Nar du etterrivert ISBrer spil- 
lets finesser og overraskel- 
ser vil du oppdage at dette er 
et av de mest engasjerende 
spill som hittil er laget. 
Random Access til scenene 
gjor spenningen og variasjo- 
nene total! 

Dette er et spill for folk med 
gode nerver 



Andre topp-nyheter fra INTERDISC: 

* BLACK KNIGHT 

(den sorte ridder) 

En forbleffende grafikk og realisms (16 spites 
beveger Ridderen, 8 har hittil vsert det maksi- 
male for CBM 64). 

Dette er virkelig -tegnetilm* ;pa computeren. 
Turbokassett for CBM-64: kr 138,- 

* AFRICAN SAFARI 

Et adventure spill med fenomenal grafikk og 
overraskelser. 

TUrbokassett for CBM-64: kr 138,- 

* STAR FORCE/GAMMERON 

To helt nye og meget avanserte romfarts-spill pa 
samme kassett. Her er mye action for pengene. 

TUrbokassett for CBM-64: kr 138,- 

Spiltene fas hos alle velassorterte 
hjemmedata-forhandlere 

ELECTRONICS 
SOFTWARE j 

a 

CBS Electronics, P.B. 134, 0kern 0509 Oslo 5 tit. (02) 64 37 90 




ALT: " ; BR 

1019 PRINT*? . CHR* 1 1 6 r 06NE T TO I NNTEKT 

ALt: :NE 
1920 PRINTS. CHRi(lB). LHRU10 ) 
1830 PR INT**2 , CHR*( 1 6 3 06 INNTEKTSKATT TIL 
: STATEN 
•;DF 

1840 F^INTn?,CHR"»C16r ??KQnmiNE. FYLKET 

OG" 

1850 PRlNI»2.f:HR4C16) 27SKATTEF0RUEL INGS 

FGNDCI ;KO 
1 R60 PPIfn»?, CHR-iC 16 3" P6F0LKE TRYGDAUG I F T 
: SYKEDEL 

":sv 

1 870 PRIM W , CHR* ( 1 6 ) 27PENSJ ONSDEL 
"IPE 

1880 PRIN1»?.CMR*(1Q)27 



1890 PR|rH»Z,CHR*( 16) "06S U M 
1900 PRINT»?,CHR4C 16 D"06- SAERFRflDRflG 

';ag 

1910 printb2.chr4i 16 j 06- sparing/liustr 

YrSDlNG. 10 * FRAORAG 
";LCI 

1920 PR|N1«2.CHR*(16)"06- FRAURAG FOR (3A 
RN: 0-15 AAR 
:Bn 

1930 PR I NT n? , CHR4C IB ) "27 



1910 PR [ N T n 2 , 'JHR 4 [ 1 ffi ) " 0fiU T 1 I K N A 
S K ft T T 
;U1 

1950 PRlNI«7,CHR4C16r 06- FORSKUDOTREKK 
" iFR 

1960 PRINT«2.CHRtC16)-22 



1970 PR[NTo2 ,CHR*( I6)"06"fl4CHR4( 16 ) "58"; 
UI3 

1380 PRINT»2.CHR4C10XHRiC 10 JCHR4C 16 D "06 
HUSK fiT DETTE ER EN PROGNOS 

E" 

1990 PRINTn2.CHR*( IGJCHRtf. 10 3CHR*(10 )CHR 

* C 10 ) 
2000 CL0^E2 

2010 PRINT "T CLR/'HOMBH CRSR/OQUN*1 30NSKER 

DU EN KOPI TIL ? CJ/NT 
2820 GET K4:IF X4 = " J THEN 1660 
2030 IF X*<>"N" THEN 2020 
2010 PRINT ICLR/^OHE3[CRSR/DOWN*110NSKER 

DU FLERE BEREGNINGER ? (JAiV 
2050 GET Ci:IF Ci= "J " THEN RUN 
2060 IF ClO 'N" THEN 2850 
2070 PRINT ECLR/-HOnE)tCRSR/OOWN*'UDU 0NS 

KER UA OG AUSLUTTE ? (J^N)"* 
2080 GET Z»:IF Z4 = "N" THEN RUN 
2090 IF 240J THEN 2680 
2100 SYS 61738 
21 10 REM 

2120 REM XXXXXXMXXXXXXXXXXXIXJXXXXXXXXX 

2130 RtM » 8EREGN1NG AO STATSSKflTT ■ 
2148 REM a I KLflSSE 1 * 
2150 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
21R0 Rf:M 

2170 IF NF<-- A8 THEN DF=0sGOTU 718B 
21 m K =NE-fi8 

2130 IF K<=B2 THEN OF = INT <K*B1 /1 80 J: GOTO 
2*80 

2200 IF K> 82 THEN L=B2*B1^100 
2210 M=K-B2 

2220 IF MOB5 THEN N=M*B1/100 
2230 IF M> B5 THEN N:&5*B4/I00 
2210 0=M-65 

2250 IF 0<-BB THEN P-O*B7yt00 



60 



2260 IF n> BS THEN P=B8*B7/1B0 
7270 Q^O-BB 

2280 IF Q<=C2 THEN R=Q*Cl/t00 
2290 IF Q> C? THEN R=C2«C1/100 
230R U-0-L2 

2310 II- W<=C5 THLN r=W*C4/100 
2320 IF U> C5 THEN I=CS*C4/100 
2330 Y=U-C5 

23-10 IF Y<=C8 THEN T=Y*C?/\m 
2350 IF Y> C8 THEN r=C8»C7^100 
2368 H^Y-C8 

2370 IF H<=D2 THEN G-H*OI/100 
23(30 IF H> D2 THEN G=07*D1 
23S0 FH-D2 
2*100 C = E*D4/!00 

2110 IF K> B2 AND M< B5 THEN OF = INTCLtM) 
:60TO 2480 

2470 If M> B5 AND 0< BB THEN 0F S INT(L*N» 

P) :G0TO 24 80 

2430 IF 0> Be flNQ Q< C? THEN DF = INTCLi"N + 

PfrR 3 :GOrO 2180 

2440 IF 0> C2 BND U< C5 THEN DF=iNT(L*Nt 

P+R+I ) :G0TO 2480 
74^0 If W> C5 AND Y< C8 I HEN DF=INTtLtNt 

P*RM-frT ) : GOTO 2480 
2460 IF Y> C8 AND H< D2 THEN DFMNTtLtN-t 

P»R. I i T +G .1 : GOTO 2480 
2470 IF H> D2 THEN DF = 1 NT(L+N+P+RtI+-T* , G+ 

C J 

2480 RETURN 

KONl'ROLSUII FOR NORSK SKrtTTEPROGRAII 
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VINTER-TILBUD COMPUTER 

MEMOTECH MTX 500 Kr. 3.290,- 

MEMOTECH MTC 51 2 Kr. 3.990,- 

MEMOTECH RS 1 28 Kr. 5.990,- 

C0MMODORE CBM 64 Kr. 2.895,- 

DATAKASSETTSPILLER Kr. 375,- 

ARCADE JOY-STICK Kr. 1 95,- 

NASHUA 5 1 /*", Disketter Kr. 22,- 
ComputerC15, Tomkassetter Kr. 15,- 

Vi farer ogs§: Velleman byggesett, 
Komponenter, White's Metallsekere, 
Zodiac, Transvoice-UT, Sansui BIL- 
Hjemme-Stereo, Loewe Farge-TV 
fie om Vinter-tilbudf 



Vennligst send meg: 



Betaling kontant + oppkravsgebyr 




Langbryggen 11, Boks507. 4801 ARENDAL 
Tlf.: (041)24 480 



MED NORSK BflUKSANVlSNING 

MAW IN STEINKJIR NOKWAV '84 

IBM/ATARI/CBM 64/SPECTRAVIDEO/MEMOTECH 

TOOL BOX " W* eret rijelpeyerktoy for deg som vil bnuke din daiamaskin 
som styreenhet (or elektroniske releer, og andre elektroniske lunksjoner. 
Med TOOL BOX '84 s kan du: 

— lago dine egne joystick, paddles, lyspenn etc. 

— lage dine egne mileinstrument tor rys. vind, varme c-g motetand. 

— Lage elektroniske aiarmsystemer. 

— Utvikie dine evner innen data og elektronikk. 
TOOL 80X '94* egner seg til yrke, skole og hobby 
FyWig brukerveiledning med program listinger medtelger. 
TOOL BOX '84* ogsa for nybegynner. 

FORHANPLERE SOKES 

Id* 400- 

Postboks 228 - 7701 STEINKJER ■■■■ 

TH. <077) 65 310 - 65 440 

Jeg har Computer og besiiller 

stfc. TOOL BOX '84* a 400.- □ 0nsker naermere opplysninger 

Henif kommer porto og oppkravsgebyr 

Adresse — 

Ste<J ™ „ |- 

Underskritt M _ | 

' ' a 
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Punchy 



C 1 6 & PlusM kaberne har endnu ikke 
mange muligheder for at udnytte de- 
res nyerhvervelser til computerspil 
Men nu har Commodore i Danmark fa- 
el de ferste soil p3 gaden . Et al dem er 
PUNCHY. 

Helt i overensstemmelsemed Com- 
modore Danmarksnyesoftwarepolltlk 
er der tale om el spil pa band og med 
en meget skrabet brugsanvlsning. 
Fem liraier klistret pa kassellehylste- 
ret. 

Jeg citerer: Spillets formal: OpnS 



point ved at gennemga og overleve 
tlest mulige skarrnbilleder. 

Det er faktisk det hele, ogsS hvad 
spillet angar. Bevares der er god gra- 
fik, highscore, score, bonus, tid og for- 
brugle srna Bobbyer angivet pa ska9r- 
men. Men ret hurtigt bliver spillet ens- 
formigt og lyden monoton. Til gengaald 
er man hurtig gennem en runde. 

Med i Commodores nye spjl-politik 
er ogsa del prisbiliige. sa ait i ait hav- 
nerspillel med en pasn score hos mig. 



Vurdering: 



5 



Instruktion □ □ □ IS 

Prffistatwn □ Q D H 

Beyeningsvejledning □ □ □ DB 

Grafik B D D D 

Lyd □ ta D □ 

Variation □ O Ofi □ 

Fsngslende □ □ EB D 

PrisAtvalnetsfarhold O DB □ □ 



Software i PLUS/4 



Den nye PLUS/4 har - toruden en ma- 
skinkodemonitor - fire softwarepro- 
grammer Indbygget. Der er taleom et 
tekstbehandlingsprogram, el spread- 
sheetprogram, grafik og endeiig el da- 
labaseprogram. 

Der har va3ret rejst megen kntik af 
PLUS/4'eren og onde tunge har mum- 



let noget om. at man blot ville putie et 
MAGIC DESK program i maskinen. 
Det er imldlertid helt skudt ved siden 
af , idet der her er tale om programmer, 
der rummer de fleste af de faciliteter, 
man finder hos de bedre programmer 
til 64'eren. Yderrnere er disse pro- 
grammer indbyrdes compatible, hvil- 



ket sjeeldent er tilfffildet. nar man ko- 
ber programmer »i los va?gt«. 

En grundig gennemgang af den ind- 
byggede software er derfor en sterre 
sag, som ferst vil bringes i naasie num- 
mer af RUN. 



Vindere af Ghostbuster soil: 



Torben B. Mygaard 
Vestparken 58 
9550 Mariager 

Kitt Enoch 
Engholmvej 27 
4000 Roskilde 



Jacob Raavig 
Drosselvaenget 12 
2750 Ballerup 

Brian Jorgensen 
M. A. Hansensve] 13 
8660 Skanderborg 



Gert Schilkowski 
0stergardsvej 28 
8340 Mailing 

Jan Kristensen 
Hessengade 50, 2.th. 
2300 Kobenhavn S 



Sven Erik Helding 
Pilegards Vaenge 60 
2635 Ish0j 

Ulrikke .Andersen 
Sogardsvej 43 
5700 Svendborg 



Hans Laustrup 
Sobakken 1 
7620 Lemvig 

Thomas V. Johansen 
Blabasrvej 3, Sejs 
8600 Silkeborg 



RUN i Danmark 

RUN er navnet pa Danmarks forste 
uafhsengige magasin om Commodore 
compute re. 

RUN bringer nyheder, tests af hardware og 
software, litteratur m.m., alt med relation til 
Commodore. RUN vil indeholde mange 
programmer. 

RUN udkommer januar, marts, juni, 
august, September og november i 1985. 
RUN fas i kioskerne samt hos Commodore 
forhandlere. 

KR. 22,50 

Abonnement 6 numre KR. 128,-. incl. moms 
Benyt bestillingskuponen pa bagsiden. 



RUN i Nome 

Commodore Magasin 

JA! 

□ Ett firs abonnement. 6 utgaver. kr. 115.- 

. Er mnbetalt pa bankgironummer 7069 05 09243 

□ Er innbelalt pa postgironummer 3 44 62 91 

□ Vennkigst sond regning 

Navn: 

Adr.; 

Postnt: Sled: 

Land: TH. : 

Alder: Stilling: 

Foresaites underskrilt hvis jeg er under 18 fir; 




R U N 



Commodore - magasin 

TILBUD TILBUD 

Har du ikke tid eller lyst til selv at indtaste de 
mange programmer i RUN kan du kcbe program- 
merne pa diskette eller kassetteb&nd (kun ved 
forudbetaling). 

RUN PRIVATREGNSKAB 

kan nu ogsa kobes pa diskette/kassetteband 
KR. 195,- incl. moms (kun ved forudbetaling). 



TAPE 
KR. 98,- 

incl. moms 




DISKETTE 




KR. 118,- 

incl. moms 



Tryksag 

Uf rankerel svarforsendelse 



— £ 



ulranlwros 
CompuwfwotW 
beialer 
portoen 



778 



Compulerworld Danmark A/S 
Gammel Strand 50 
1045 Kebenhavn K 



A-post 



Kan sandes 

'Note* 
AdreesaTen 

porioen 



SVARSENDING 

Avlale nr. 277/114000 

Computerworld Norge A/S 
Toyen Postkontor 
0608 Oslo 6 



CD 

□ 



z 



Tryksag 

Ufrankeret svarforsendelse 











u(rankor«( 




ComputMrtrtfl 








portoen 



778 



Computerworld Danmark A/S 
Gammel Strand 50 
1045 Kabenhavn K 



62008 REfl KONTRDLSUfl PRQGRAH 
62010 GOSUB 62050 
62020 GOTO 62200 
62030 IF FL>-0 THEN 52020 
62040 END 

62858 DEFFK DEEK(X) = PEEKCX )+256* PEEKCX 
+ 1 ) 

6206B DflTft xxx 

62070 OftTA 165.252.166.253.133,020,131.0 
21 ,032.013 

62080 DP-Tfl 166.216.160.001 .177.095.133.2 
54,240.013 

62090 DATA 200.177.095.133.252,208.177.0 

35.133.253 
62100 DATA 200.169.000.133.251.177.095,2 

40.006.024 
62118 Oftffl 101.251.200.208.244.096 

62120 data -i 

62138 AD = 52932 

62148 RESTORE KONTROLSUM: 
62150 READ Tt: IF TtO"x» THEN 62150 
62160 READ T i IF F>=0 THEN POKE AD.T : 

AD = ADM : GOTO 62160 
82170 PRINT "t CLR/HOME 3HU0R 0NSKES KONTRO 

LSUri PRINTET: " 
62180 I NP1JT " TU/MON I TOR =0 PRINTERS PLOTT 

ER=6 ' ; DEU 
62190 RETURN 

62200 pf-n DO 1NITRLISAT10N 
62210 FL = 0 : INPUT F9RSTE LINE FL 

■ IF FL<0 THEN RETURN 
62220 LL = 65536 : INPUT SIDSTE LINE "I 

Lt : P R I NT " C CLR/H0I1E 3 " 
62230 IF DEU>0 THEN DPFN 1 .OEU 



62240 LN = FL : C = 0 : CI = 0 
62250 POKE 252,LN-INT(LN/256>*256 ; POKE 
253.LN/256 

62260 SYS 52392:CS=PEEKC251 J;LN=FNDEEKC2 

52 DM 

62270 It = LEFT$CSTR*CLN-1 )+■' ,63+ 

LEF Ti C S TR i [ CS 3+ '* ,7D 
62280 IF OEU^B THEN PRINT Ti; 
62290 IF DEU>0 THEN PRINT*1.T4; 
62300 IF DEU = B THEN C = C-t-1 : IF C>=3 TH 

EN PRINT : 0 : CI = 01+1 

62310 IF DEU>0 THEN C = C+l : IF C>=3 TH 

EN PRINT»1 : C = 0 : CI = CI + I 
62320 IF LN<=LL AND PEEK t 254 ) THEN 62250 
62330 IF OEU>0 THEN PR I NT» 1 ! CLOSE1 
62340 END 



62000 


5 


62010 


170 


62028 


163 


62030 


177 


62040 


128 


62050 


179 


62860 


33 


62070 


30 


62080 


38 


62890 


46 


62100 


31 


621 10 


14 


62120 


1 


62130 


130 


62140 


140 


62150 


167 


62160 


29 


62170 


65 


62180 


227 


62190 


142 


62288 


58 


67210 


47 


62220 


199 


62230 


77 


62240 


13 


62250 


207 


62260 


255 


62278 


189 


6228B 


191 


62290 


25a 


62300 


114 


62310 


161 


62320 


197 


62330 


38 


62340 


128 







VIZASTAR 

NORSK 

INFORMASJONSBEHANDLING 



□ 



A 



JA. SEND MEG BROSJYREN OM VIZASTAR 

OG OVERSIKT OVER PROGRAMMER OG UTSTYR 

TIL COMMODORE-64. 

NAVN: 

ADRESSE: 

SENDES TIL: A/S NAVUS S 
TOLLBUGT. 4. 0152 OSLO 1 
Mrk: «VIZASTAR» 8 



Kj&nner du programmene Lotus 1-2-3 ollor Symphony 
vil du bli imponert av VIZASTAR 64. 



Vizastar info rmas j o ns be ha ndling 

Hot du en dmamoikin og vil skrivc « brev eller en rapport broker du 
cc ukilbchandlingsprogram. 

Vil du f.eks. regne ui fakturacr eller effekOvuerz kart officer, fit'i/Ji^: 
program shot du da brake? 

Vizastar! 

* V12ASTAR cr det fisrsie NORSKE dataprogram som 
samraenkobler et Regneark med en skikkelig Database.- Bare 
ved hjelp av dcnrtc sammenkoblingen kan vanlige runner for 
fbrreming eller hjemnwrkomor laws effektivt. 

* VIZASTAR cr loguk bygget opp og left a larrc fordl allc 
kommandoer velges fra MENYER pa skjermen. 

* VIZASTAR er enkelt a la i bruk, men sa avanserr ac du kan 
utnytte det til de mew kotnpliserte oppgavcr nir du Urrer det 
a kjenne- 

* VIZASTAR kan brukes i forbmdebc med VIZA WRITE og 
and re Tektfbehandlingsprogrammer. 

* VIZASTAR kan fxks. brukes til fekrurcring, lagerhotd, 
priskalkyler, kundekartocek. 

* VIZASTAR holder orden pa medlemsfortegnelseri i 
forcningen din, skriver ui adrc&selapper og hielpcr deg 6 
fere regnskapcT. 

* VIZASTAR hjelper deg i sent opp ditr private budsjett. 
Lag en ovenukt over de fawe utglfrene og unnga over* 
raskclsen den da gen ALLE ANDRE regninger forfallcrt 

tt Med VIZASTAR kan du sette opp beregning av line- 
koatnadcr. Prwv med en annen rentesan eller avdrngsnd 
og se results tet pa dine rnanedlige utgifter- 
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Indtastnings vejledning 



Alte programmer, der bringes i RUN e r 
forsynei med en sakaldt kontrolsum, 
sa du bagefler kan kontrollere. om du 
har tastet rigtigt indogevt. hurtigt finde 
indtastningsfejl. 

Dustartermedat indiaste program- 
met pa foregarende side og gemmer 
del lil Iremtidig brug. 

Ved indlaslnmg at de 0vrige pro- 
grammer er fremgangsmade IcMgen- 
de: 



Programoversigt 

COMAL 80 
Tape Index 
15spilVic 

Diverse Simonprogrammer 
Guffer . . . . 

Privatregnskab2 + 3 
VICMAN 
Basic resiskat 
DanskebyerVlC 
UFO landing 
Norskskatteprogram . 
Kontrolsum 



1. Forst mdlasser du programme! 
»Kontrolsum«. 

2. S3 indtaster du dit program. 

3. Tag altid en kopt af dil program in- 
den du tester det 

4. Skriv GOTO 6200O og besvar de 
sporgsmal som programme! stiller. 

5. Sammenlign de kontrolsumme 
med det. der er trykt i bladet og find 
de llnter, hvor du evt. har tastet fejl. 



10 
15 
15 
17-21 
23 
43 
47 
52 
54 
56 
58 
65 



Programlistningen 
i RUN 

Der er ved listningen af programmer i 
RUN anvendt et sasrligt printprogram, 
der skulle gere indtastningen af pro- 
grammer vsesentlig lettere end ved en 
almindelig listnmg. hvor de grafiske 
tegn ikke er til al laese. I mange tilfeeide 
ska) du trykke pa to taster for at Indta- 
ste et tegn. I programme! er de to ta- 
ster anfcrt meilem to kantede parente- 
ser og delt med en skrastreg t.eks. 

(SHIFT/A) ell er (LOGO/A) 
hvor du skal anvende SHIFT-tasten el- 
ler LOGO-iasten sammen med A. 

Du vil ogsa" kornme ud for 

(BLK)eller (RVS/ON) 

ide tHfselde skaldu brugeCTRL-tasten 
sammen med henholdsvis 1 og 9-ta- 
sten. 

Star der indenfor de kantede parente- 
ster t.eks. 

(SHIFT/A'8) 
skal du taste det pagaaldende tegn 8 
gange. 

Uge en ting, du til slut skal vaare op- 
masrksom pa. Kontrolsummen konn- 
mer ikke til at passe, hvis du slelter el- 
ler indssetter el meliemrum. 
Godfornejelse. 



RUN Nr. 2 

udkommer den 8. marts 

Test af teksibehandlingssystemer 
Ksempetest af programmer 
Afslutning af Privatregnskab 
Gennemgang af software i PLUS/4 
....09 masser af programmer til at taste ind. 
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7av 10 

nordmenn 

velger 

Commodore 

hj'emme- 

computer 

Helt siden Commodore 
h|emmecomputere ble 
lansert, harde vart landets 
absolutt mest k|opte - noe vi 
er bade glade for og stolle 
over. Fordet vel vi, at 
datainteresserte har greie pS 
detdekjoper, og er bade 
kravstore og grundige i sine 
vurderlnger far de gjer sine 
valg. 

At 7 av 10 da velger en 
Commodore hjemmecompu- 
ter. tar vi som et stort tillitsvo- 
tum . Og den tilliten akter vi 3 
vise oss verdige. Vi vil derfor 
fortsette a konstrgere enkle, 
lett forstaelige computere med 
stor kapasitet og et veil av 
muligheter. Foratilfredstille 
alle de onsker Commodore- 
eterne har. kommer vi ogsa* til 
a kontinuerlig forbedre og 
utvide vart urogramtilbuci 




Commodore 

- den ene gode itieen 
etter den andre 



HVEM HJ/ELPi 




MATRIX PRINTER MPS 802 

Ideel til tekstbehandling. Fordidens tegnoplosning er sa 
hoj. Velegnet til administrative systemer. Fordi den 
er beundringsvcBrdig hurtig med 80 karakterer pr sek. 
Fordt den ubesvsret laver 20, 40 eller 80 tegn pr. lime. 
BidireKttonal printing. Naturtigvis med den linie- 
afctanddu programmere* den til. Printer MPS 802 artoej- 
der med papirformater op til A4. 



Commodore Computer er den storste 
leverandor af hjemmeconiputere i 
Danmark-ogdet lorpligter. 

Vore perifeie enheder lever luldt og 
heit op til vore computeres standard. 

Med vore printere, plottere, diskette- 
stationer og datasette udvider rki dine 
muligtieder savel pa del administrative 
omrade som pa omratiet far udvikling a( 
egne programmer. 



Commodore 

Fordi fremtiden forleengst 
erbegyndt. 



